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This is just 1 of 
20 pages of the 
newest and biggest 
Skyles catalog, hot 
off the press. 

We know you'll 
want this page, in 
its full 7x10 
splendor, and 
another 19 pages 
of peripherals, 
software and books 
that will make your 
CBM-64 or VIC 
computer even 
nicer to live with. 
So, if we missed 






sending you your 
very own copy 
within the last few 
weeks, call us at 
(800) 227-9998 
(unless you live 
in California, in 
which case call 
(415) 965-1735. 
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From Skyles 
Electric Works, the 
oldest and largest 
professional 
specialists in the 
business. 



Skyles Electric Works 

231-E S. Whisman Road 
Mountain View, California 94041 



CAD /CAN! DONT SPEND 25k, 50k 
or $500,000 BEFORE YOU SPEND $7r 



OBJECTIVES 

This book will provide managers, 
engineers, manufacturing personnel 
and any interested persons an 
understanding of the fundamentals of 
Computer Aided Design [CAD] and 
Computer Aided manufacturing [CAM] 
applications and technology. 

PROGRAM 
DESCRIPTION 

The program will expose you to the 
various CAD/CAM terminologies used. 
Hardware and software comparisons 
will be explored with heavy emphasis on 
their advantages and disadvantages. 
Cost justification and implementation 
are presented using case studies. 

WHO SHOULD 
PARTICIPATE 

The course is designed for but not 
limited to: 

— Those managers, engineers and 
research professionals associated with 
the manufacturing industry. 

— Personnel from Product, Tool 
Design, Plant Layout and Plant 
Engineering who are interested in 
CAD/CAM. 

ADVANTAGES- 
END RESULT 

This program will enable participants to: 

1 . Learn basic CAD/CAM Vocabulary. 

2. Better understand the various hard- 
ware and software components us- 
ed in a typical CAD work station. 

3. Select the existing CAD/CAM 
system most appropriate for cur- 
rent and projected needs. 

4. Make an effective cost justification 
as to Why they SHOULD or 
SHOULD NOT implement a 
CAD/CAM system. 



5 . Apply and use computer graphics as 
a productivity tool. 

PROGRAM 
CONTENT 

1 . Introduction 

a. History of CAD/CAM 

b. Importance of CAD/CAM 

2 . Graphics work station peripherals 

a. Input 

b. Output 

c. Advantages and disadvantages 
of input and output devices. 

3 . Computer Graphics Systems 
[Hardware] 

a. Micros 

b. Minis 

c. Main Frames 

d. Turnkey Graphics systems 

4. Software 

a. Operating systems 

b. Graphics Packages 

c. Graphics Modules 

5. Computer Aided Design 

a. Geometric Definitions 
[Points, Lines, Circles, ETC.] 

b. Control functions 

c. Graphics Manipulations 

d. Drafting Functions 

e. Filing functions 

f. Applications 




CAD / CAM: 

A PRODUCTIVITY 

ENHANCEMENT TOOL 



6. Implementation 

a. Determining needs 

b. Purchasing and Installing 

c. Getting Started 

7. Cost Justification and Survey 

a. Cost comparisons of two and four 
work station systems. 

b. Presentation of recent survey of 
CAD system users 



ZANIM SYSTEMS MAKES THIS SPECIAL 
OFFER: IF YOU BUY CAD/CAM: A 
PRODUCTIVITY ENHANCEMENT 
TOOL BEFORE APRIL 1 5TH, WE WILL 
INCLUDE FREEOFCHARGEJHESE TWO 
PAPERS PUBLISHED NATIONALLY BY 
ZANIM SYSTEMS CAD/CAM EXPERT. 

' . "Creation of a Large Data Base for 
a Small Graphics System" 

2. "Shortest Path Algorithm Using 
Computer Graphics" 

Of course you could spend as much as 
$495, $595 or $695 for a similar 3 day 
seminar even though this book is not a 
computer program. 

We tell you April 15th for a special 
reason... this product may be tax 
deductible depending on your field or 
neeids. This 1 70 page course will satisfy 
any of your CAD/CAM needs. We 
guarantee it. 



Please send $79 to: 

ZANIM SYSTEMS 
CAD/CAM GROUP 
P.O. BOX 4364 
FLINT, Ml 48504 
[313] 233-5731 

QUANTITY DISCOUNTS AVAILABLE TOR COLLEGES, 
UNIVERSITIES AND/OR SEMINAR USE. 



There are three ways to learn 6502 Assembly Language on your Apple Computer: 



Hard 



OTHERASSEMBLERS 



Easy Easiest 
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NEC PRINTERS 

NEC 2050 . '999.00 

NEC 3550 "1679.00 

PERCOM/TANDOM 
DISK DRIVES 

5V." 320K Hoppv "22900 

5 Meg Hard w/Concrdler CALL 

10 Meg Hard w/Controller CALL 

15 Meg Hard w/Contrdler CALL 

20 Meg Hard w/ControJter CALL 

AMDEK 

310A Amber Monitor "169.0G 

OXY 10G Rotter "599 00 



IBM 



VISICORP 

IBM 



Color 

AST RESEARCH 

Sx Pak F1us..from 

Combo Plus II. from 

Mega Rus..from 

I/O Plus., from 

QUADRAM 

Quadlink. .. . 

Quadboard.-.as low as 

Quad 512 l^us..as lew as . 

Quadcolor. as lew as 

Chronograpfi 

Parallel Interface Board 

64K RAM Cfiips K.c 

MICROPRO 

WordStar/MailMerge 

InfoStar 

SoellStar 

CalcStar 



'399.0G 

"279.00 
■279.00 
"309.00 
•139.00 

"479.G0 
'289.00 
"249.00 
"21900 
"89 GO 
"B900 
"59.0G 

"349.00 
"299 00 
•159.00 
.."99 00 



VisiCalc 

VisiCalc 4 

VisiCalc Advanced 

ViSiWord/Spell 

Visitrend/Plot 

VisiLjnk 

VisiFile 

Visi Schedule 

Visidex 

VisiPlDC 

VisiTerm 

Desktop Plan 

Bus Forecast Model 

ScretchCalc 

Visi Tutor Calc 

Visi Tutor Advanced 

Visi Tutor V\/Drd 

Visi-On Calc 

Visi— On Graoh 

Visi— Dn Word 

Visi — On Mouse 

Visi -On Host 



"24900 
•199-00 



■199.00 
"199 00 



•199 00 
•7500 
•75 OG 
•59.0G 
•75-OG 
■259.00 
•28900 
•179 00 
'27500 
■159 00 
■319 00 



pfs 



MICROSTUF 

MICROSOFT 

ASHTON-TATE 



Wnce 

Graoh 

Report 

RIe 

Solutions' as fciw as 



IBM 
■89-00 
■89.0G 
•79-OG 
"89.00 
"16 00 



APPLE 
"159.00 

"269.00 

'199.0G 
'169.0G 
'1690G 
■199.0G 
'159.0G 
'135.0G 
'75.00 
'169.00 
■75.0G 
'75.00 
'59.0G 
'75.0G 
'59.G0 



APPLE 
'79.00 
'79.00 
'79.00 
'790G 
'16-00 



dBASE II 
Fndayl 

EasyWncer II 
Easy Speller 
EasyFler 



lUS 



'389 00 
■185-OG 

.'249.0G 
■119.00 
."229.00 



CONTINENTAL SOPHNARE 

1st Class Mal/Form Letter ^79.00 

Home Accountant Rus ■BB.OO 



MONOGRAM 

Dollars and Sense '1 09 00 

LOTUS 

1-2-3 -399.00 

PROFESSIONAL SOFTWARE 

PC Plus/The Boss -34900 

SYNAPSE 

File Manager '89.00 

SOFTWARE ARTS 

TK Solver •189.00 



AXIOM 

AT-100 Aran Interface 

GP-100 Parallel Interface 

AT-846 Interface 

BMC 

401 Letter Quality 

BX-aO Dot Matrix 

CENTRONICS 

122 Parallel 

739-1 Parallel 

739-3 Serial 



•2390G 
•199.00 
•89 OG 

■589.00 
•269 00 

•299. OG 
•199-00 
'249.00 



C.ITOH 

Gorilla Banana 

Prownter a510P . 

Prownter 1550P . 

A10(1BCPB] 

B600 P 

F10-4a 

F10-55 

COMREX 

ComWncer II Letter Quality, . 

DIABLO 

620 Letter Quality 

630 Letter Quality 

0AISYWR1TER 

2000 

TractiDT Feed 

EPSON 

MX-aOFT. MX-10G. RX-8D. RX-BOFT, 
FX-aO, FX-1D0 CALL 

IDS 

Pnsm 80 For Configurations. .. CALL 

Pnsm 32 .For Configurations CALL 

MANNESMAN TALLY 

160L. .. '58900 

180L '799 00 

Spint 80 '309.00 



PRINTERS 

NEC 

2G10/2030 'B99,00 

B023 Got Mat™ '37900 

8025 Dot Matrix '669.00 

3510 Serial/Letter Quality '1449.00 

3530 Parallel/Letter Quality '1499.00 

7710/773G Serial/Parallel '194900 

OKIDATA 

82. 83. 84 92. 93, 2350, 2410 CALL 

SMITH CORONA 

TP-2 '399.00 

Tractor Feed '1190G 

SILVER REED 

500 Letter Quality '469.00 

550 Letter Quality '699. OG 

STAR 

Gemini 10X '299.00 

Gemini P15X '399.00 

Delta 10 •559-00 

Serial Board '75.00 

TOSHIBA 

1350 '1699.(K1 

TRANSTAR 

120P '499.00 

130P "689-00 

315 Color '49900 

APPLE INTERFACE 
CARDS K BUFFERS 
Choose from PKASO, Orange Micro, MPC, 
MicroMax, Tymac, Quadram & Practical 
Peripherals PRINTER CABLES 
are avalable for most ail computers on the 
market V^/e supply all your computer needs, 

PAPER SUPPLIES 

1000 shts, B'/^x11 Tractor Paper 'IB" 

1000 shts, 14'/ix11 Tractor Paper '24" 

1 or 2" Address Labels '9" 



•20900 
•379,00 
•59900 
■569 00 

,-'929,00 
'999-00 

'1499,00 

,'49900 

'949 00 
'1749 00 

'999 00 
'109 00 



MBC-550.. 
MBC-555.. 



.CALL 
.CALL 



^ SANYO 



MBC 1100 '1499,00 

FDO 3200-32CK Onve '389,00 

MBC 1150 ^1899, 00 

MBC 1200 ^1849, 00 

FOO 6400-64C'K Onve ^469,00 

MBC 1250 '2099,00 

PR 5500 Pnntiir '599,00 




APPLE/FRAIMKLIIM 
DISK DRIVES 

MICRO-SCI 

A2 '219.00 

A40 '299.00 

A70 '31900 

C2 Controller '79.00 

C47 Controller '89 00 

RANA 

Bite 1 '279.00 

Bite 2 '389.00 

Bite 3 '569.00 

APPLE lie STARTER PACK 

64K Apple lie Disk Onve & Contrciler 80 Cdumn 



e FRANKLIN 




Card, ivtonitor II & DOS 3-3 
COMPLETE .. 



.CALL 



ACE 1000 Color Computer., .r^.. . CALL 

ACE Family Pack System CALL 

ACE PRO PLUS System CALL 

ACE 1200 Office Mgmc. System CALL 

"Not He Expensive" 



TERMINALS 



914 
924 
925 , 
950 
970 



'56900 
,-'689,00 
■739-00 
'929,00 
■1039,00 



©TelcVideo 



COMPUTERS 

Teleport Portable CALL 

BOCA -109900 

802 -2699,00 

803 ^1949-00 

B02H '4695 DO 

806/20 '4999,00 

816/40 '919900 

1602 '3399,00 

1603 CALL 




ANCHOR 

Volksmodem '59,00 

Mark IL ^79, 00 

Mark VII (Auto /»ns,/Auto Dial] '119,00 

Mark XII (1200 Baud) '299,00 

TRS-aO Color Computer '9900 

9 \A}lt ftlwer Sipply '9,00 

HAYES 

Smartmodem 300 '209,00 

Smartmodem 1300 ^499,00 

Smartmodem 12008 "449,00 

Micromodem lie ^269 CO 

Micromodem ICIO '299,00 

Sma-t Com li '8900 

Chronograph '199,00 



MODEMS 



NOVATION 

J-Cat 

SmartCat 103 

SmartCat 103/212 
AutoCat 

212 AutoCat 

Apple Cat II 

212 Apple Cat 

Apple Cat 212 Uograde 



ZENITH 



ZT-1 

zr-10 

ZT-11 ,, 



'99 99 
■17900 
'399,00 
■219 00 
'549,00 
■249,00 
■56900 
■30900 
'139 99 

'339,00 
■309 CO 
■36900 



AMDEK MOIMITORS 

300 Green ^149 00 

300 Amber '15900 ™-'' = 

310 Amber '169,00 

Color 1 '279,00 100, 

Color 1 Rus '299,00 

Color 2 '39900 

Color 2 Rus '419,00 

Color 3 '349,00 

Color 4 '699-00 

BMC 

12" Green '88,99 

12" Green Hi-Ri:s '119,99 

9191- 13" Coloi' '24900 

GORILLA 

12" Green '88,99 

12" Amber '95,99 

NEC 

JB 1260 Greer '109,00 

JB 1201 Greer '149,99 

JB 1205 Ambe- '159 99 

JC 1215 Color '269,00 

JC 1216 RGB '429,00 

JC 1460 Color '359 00 



PRINCETON GRAPHICS 



SAKATA 
TAXAN 

210 Color RGB 

400 Med-Res RGB 

415 Hi-Res RGB 

420 H.-Res RGB (IBM) 

100 12" Green 
105 12" Amber 

US! 

P 1, 9" Green 

P 2, 12" Green 
P 3, 12" Amber 

fi 4, 9" Amber 

1400 Color 

QUADRAM 

Quadctirome 8400 

ZENITH 

ZVM 122 Amber 

ZVIVI 123 Green 

ZVIVI 135 Color/RGB 



■299 00 
■31900 
■43900 
■48900 
■125 00 
-■135 00 

'99,99 
■11999 
■149-99 
■139 99 
■26999 



■109 00 
,,■89,99 
■469,99 



east 
M 800-233-8950 

\^ In PA call (717J3Z7-9575,De[it 40515 
I Order Status Number: 327-9576 
Customer Service Number: 327-1450 
477 E. 3rd St.; Williamsport, PA 17701 



Canada 

Ontario/Quebec 

800-268-3974 

Other ProvincesBOO-268-4559 

In Toronto call C4ie]a2B-a866,Da|it.4D5l£ 

Order Statua Numbar: BEB-OBBC 

2505 Dunwin Driva, Unit 3B , 

IMiasiasauga, Ontario, Canada L5L1^1 



west 
800-648-3311 

In NV call [702]588-5654,Dept. 4051 5 

Order Status Number: 588-5654 

P-CBox 6689 

Stateline, NV 89449 



Mo risk, no deposit on C.O.D. orders and no waiting period for certified checks or m^ney orders. Add 3 % [minimum '5] shipping and handling 
on all orders. Larger shipments may require additional charges. NV and PA residents add sales tax. All items subject to availability and 
price change. Call today for our catalog. 




hoala 

Tcchnotogies Corporatkjn 



KOALA PADS 

Atari [Disk) 
Atari [ROM) 
C-B4 [Disk] 
C-B4 [ROM) 

IBM 

Apple/Franklin 



KOALA SOFTWARE CALL 



Qz. commodore 

CBM 8032 '599 

CBM 4032 '599 




MSD SD1 Disk Dnve 

MSD SD2 Disk Dnve 

CBM 3096 

CBM 9000 

B12B-B0 

8032 m 9000 Upgrade 

2031 LP Disk Dnve 

8050 Disk Onve 

8250 Disk Dnve 

4D23 Pnnter 

8023 Printer 

6400 Printer 

Z— RAM 

Silicon Office 

The Manager 

SoftROM 

VisiCalc 

PROFESSIONAL 
SOFTWARE 

Ward Pro 2 Rus 

Word Pro 3 Rus 

Word Pro 4 Plus/5 Plus, each 

InfoPro 

Administrator 

Power 



•349 00 
'599 00 
•889 00 
■999.00 
'769 00 
'269 00 
'299 00 
'949.00 

199 00 
'379.00 
'56900 

399 00 
'499.00 
'699 00 
'199 00 
'125 00 
'159 00 



■159.00 
■189 00 
■379 00 
•179.00 
•393 00 
•79 00 



SX-64 

PORTABLE 

*839 



VIC 20 CALL 

CBM 64 •199 

C1541 Disk Diive "249.00 

01530 Datasette 'BB 00 

01520 Odor Printer/Rotter "129.00 

M-801 Dot Matnx Printer "21900 

01526 Doc Macnx/Senal '299 00 

01702 Color Monitor "249.00 

01311 Joystick "4.99 

01312 Paddles "1199 

C1B00 VIO Modem "59 00 

01650 Auto Modem "89 00 

Logo 84 "49 00 

Riot 84 "3900 

Word Pro 64 Rus "59 00 

Parallel Printer Interface "49 00 

Calc Result 64 "65.00 

Calc Result Easy "39.00 

Codewnter 64 "75.00 

Quick Brown Fox "49 00 

MOB 801 Odor Pnnter "499 00 

OPS 1101 Daisy Printer "459 00 

Magic Vace Speech Module "54 00 

Desk Organizer Lock "49 00 

Vidtex Telecommunicatiors "34.95 



We stock a full inventory of software for Commodore, sucfi 
as: Artworx, Broderbund, Commercial Data, Creative Soft- 
ware, EPYX, HES, MicroSpec, Nufekop, Romox, Sirius, 
Si/napse, Tfiorn EMI, Trontx, UMI, Victor'/, Spinnaker, Rain- 
bow & Timeworks! 



INFOCOM 

Zorit 1,2.3 [AT/AP/OBM/IBM) 

Deadline [AT/AP/OBM/lBM) 

Enchanter [AT/AP/CBM/IBM) 

Raietfall [AT/AP/OBM/lBM) 

Witness (AT/AP/C8M/IBM) 
Starcrcss [AT/AP/CBM/IBM) 



.'2900 
■3295 
"32.95 
"32 95 
"3295 
•2900 



ATARISOFT 

IBM/AP C64A/IC 

PacMan "29.99 "37 99 

Centipede "29.99 "37 99 

Dig Dug '29 99 "37 99 

Donkey Kong "29,99 "37 99 

Defender '29 99 "37 99 

Robotrcn "29.99 "37 99 

Star Gate "29 99 "37 99 



CMO'S PORTABLE CORNER 




41CV •199" 

41CX ■249" 



"51 



"69 



HP 100 

HP lie 

HP 120 

HP ISO 

HP 180 

HP 750 "749 



NEC 

PC-B221A Thermal Pnnter "149 99 

PC-8281A Data Recorder "99 00 

PO-8201-06 8K RAM Chips '105.00 

PC-8208A 32K HAM Oartndge "329 00 



HRL Module "98 

HPIL Cassette or Printer "359 

Card Reader "143 

Extended Function Module "63 99 

Time Module "63 99 

TIMEX/SINCLAIR 

Timex/Sinctar 1000 CALL 

Tlmex/Sinclair 2086 CALL 

16K Memory "25 00 

2040 Printer '99.99 

VuCalc '17 99 

Mindware Printer '99 99 




PC-1500A MBS" 

PC-1250A •88" 

'128-99 

'171 99 

'93.99 

.'134 99 

CE-500 ROM Ubrary "29.99 



CE-125 Printer/Cassette 

OE-150 Color Printer/Oassette 

CE-155 BK RAM 

OE-161 18K HAM 



m 



A 

ATARI 



HOME COMPUTERS 




WHILE SUPPLIES LAST! 

ATARI 600XL 

»149 



1G1D Recorder '74 00 

1020 Color Pnncer.. •249.00 

1025 Oot Matrix Printer '349.00 

1027 Letter Quality •309.00 

1030 Direct Connect Modem •119 00 

1050 Oisk Dnve •339. 00 

CX30 Paddle "IS. 00 

CX40 Joyscick...each '8 00 

CX77 Touch Tablet. '64 00 

CX80 Trak Bad •48 00 

CX85 Keypad »105.00 

488 Communicator 11 •229.00 

4003 Assorted Education M7 00 

401 1 Star Raders .... •3300 

401 2 Missile Command '29 00 

4013 Asteroids '2900 

5049 VisiCalc '159 00 

7079 Logo »79 00 

7101 Entertaner .., '69.00 

7102 Arcade Champ '75.00 

8026 Dig Dug '33-00 

8030 E T. Phone Home '33.00 

8031 Oonkey Kong •39.00 

8033 Robotron '35 00 

8034 Pole Position '39 00 

8036 Atan Wnter. . . ^79 00 

8040 Donkey Kong, Jr '39.00 

8043 Ms. Pacman *39 00 

8044 Joust. .. . . •39.00 



DISKETTES 

MAXELL 

■ MD-I '29 00 

■ MD-2 '39 00 

FD-1 (SS/DD) '39 OO 

FD-2 [OS/DD) '4900 

VERBATIM 

SS/DD '26,99 

OS/DD '3699 

ELEPHANT 

SS/SD '18 49 

SS/00 '22 99 

DS/DD '28 99 

HEAD 

Oisk Head Cleaner "14,99 



DISK HOLDERS 




INNOVATIVE CONCEPTS 


Rip-n-file 10 


, "3 99 


flip-n-file 50 


"17 99 


Hip-n-File [400/SOO nOM)Holder 


"17 99 


UIK 




Atan Letter Perfect 0isk(40/80) , 


"7999 


Atan Letter Perfect RaM[40 col). 


■79,99 


Atan Letter Perfect nOM[80 cd) 


"7999 


Atari Data Perfect ROM [80 coj) , 


"7999 


Atan Sped Perfect Disk 


"59 99 


Atan Utility/MailMerge 


"21.00 


Appte Letter Perfect 


"99 00 


/Xpple Data Perfect 


"75.00 


Apple LJK Utility 


"21 00 


Apple LDwer Case Generator 


"19 00 



800XL 


•299 


1200XL 


CALL 


1400XL 


CALL 




?imm 




AT 8B-S1 




"36900 


AT 88-A1 


'25900 


AT 88-81 PD 


■449 00 


AT BB-OOA 


'11900 


RFD 40-S1 


'449 00 


RFD 40-A1 


'289 00 


RFD 40-32 


'699 00 


RFO 44-S1 


'539 00 


RFD 44-32 


'86900 


TEXAS ItgSTRUMEt^TS 




TX 99-81 


'279 00 


RANA 




1000 


"32900 


TRAK 




AT-02 


"389 DO 


INDUS 




GT-Onve 


"379 00 


MEMORY BOARDS 


Axlon 32K 


"5900 


Axlor 48K 


•99 00 


Axlon 128K 


'299 00 


Intec 32K 


"59 00 


Intec 48K 


•84 00 


Intec 64K 


■99 00 


Intec Real Time Clock 


■29 00 


ALIEN VOICE BOX 


Atan 


•119 00 


Apple 


■149.00 


CONTROLLERS & 


JOYSTICKS 




WICO 




Joystick 


•21 99 


S-way Joystick 


■22 99 


Fanous Red 8all 


■23 99 


Power Grip. 


■21 99 


BOSS JoysDck 


•17 99 


ATARIA/IC Trak Bail 


■34 99 


Apple Trak Sail. .. 


■54 99 


Apple Adapter . . 


■15 99 


Apple Analog 


•37 99 


KRAFT 




Atari Single Rre 


•12 99 


Atan Switch Hitter 


■15 9S 


Apple Paddles 


•34 99 


IBM Paddles 


•34 99 


IBM Joystick 


•46 99 


AMIGA 




3100 Single 


"13 99 


3101 Par 


■19 99 


Joyboard 


■37 99 


TG 




Atan Trak Ball. 


•47 99 


Apple Joystick. . 


■47 99 


Apple Trak Ball 


•47 99 
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Canada 

Ontario/Quebec 

800-268-3974 



west ^ 
800-648-3311 



In NU call (702]5aa-5654,Dept 4051 E 

Orkler Status Number: 58B-5654 

P.O.BOX G6B9 

Stateline, NV 89449 



VISA 



Order Status Number-. 327-9576 Onl.r StatuB Numh«r: saa-OBSB OrUer Status Number: 5BB-5B54 

Customer Service Number: 327-1450 2505 Dunwin Driiie, Unit 3B P.O.Box 66B9 

477 E. 3rd St., WiinamspDrt, PA 17701 MiasisBaugB, Ontario, Canada LSL1T1 Stateline, NV 89449 

CANADIAM ORDERS: Air prices are subject to shipping, tax and currency fluctuations. Call for eikct pricing in Canada. 
iNTERNATIOMAL ORDERS: AH shipments outside the Continental United States must be pre-paid by certified check only. Include 3% [minimum 
•SJ shipping and handling. 

EDUCATIONAL DISCOUNTS: Additional discounts are available to qualified Educational Institutioi^s. 
APO fi FPO: Add 3% [minimum 'S] shipping and handling. 
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Editorial 



Once Upon a MICRO 

Once upon a time, MICRO began as a magazine to 
promote the 6502 microprocessor. At that time, back in 
the murky mists of microcomputing, 1977, no one was 
giving this marvelous chip any attention. You could read 
many issues of Byte without even encountering it. We felt 
that this chip, and the KIM-1 microcomputer that MOS 
Technology had produced to demonstrate the abilities of 
the 6502, deserved better treatment. The rapid growth of 
MICRO showed that we were right! 

Once upon a time, MICRO was more a 'community' of 
6502 users than it was a 'publication'. MICRO'S readers 
were willing to tackle the new micros, solve the many 
problems that were encountered, and share their 
information with other readers. It was an exciting time of 
exploration and experimentation. Many important 
features were discovered, problems solved and projects 
generated by the MICRO reader/author. 

Once upon a time, MICRO helped lead its readers into 
new areas by systematically exposing them to other 
microcomputers, microprocessors, languages, techniques, 
hardware projects, and so forth. 

Once upon a time, MICRO provided very rapid turn- 
around on material submitted for publication. Articles 
were typically published within two or three months of 
initial receipt. This rapid turn-around was satisfying to the 
authors and useful to the readers. 

Once upon a time, MICRO was a small, over-worked 
but happy staff that took pride in producing a top quality 
product. 

Once upon a time, MICRO was directed by an 
individual who had experience in software - from 
operating system design through applications, and 
hardware knowledge - from simple interfacing up to 
designing a complete disk-oriented microcomputer 
system. 

Once upon a time, MICRO provided an up-to-date 
catalog of important hardware and software products, in a 
standardized format that made it easy to use. 

Once upon a time, MICRO had a panel of expert 
reviewers who provided accurate, unbiased, and timely 
reviews of new products. 

Well, "Once Upon A Time" is now! While MICRO has 
tried a lot of different ideas, particularly during the past 
year, it has now returned to its 'roots'. We have worked 
hard to get MICRO back on track as the premier magazine 
for people who are serious about all aspects of the 
6502/6809/68000 family of microcomputers. Some of the 
obvious changes have included moving MICRO back to 
Chelmsford, MA where it began, my reassuming the 
active role of Publisher and Editor-in-Chief, and numerous 



changes in the staff to streamline and improve our overall 
operation. In the past few months we have cleared the 
queue of all ou ;-of-date articles and reviews that had been 
accumulated, have re-established active dialog with many 
key authors, have worked out internal procedures to 
insure rapid response to all submissions, have developed 
improved listing methods for both assembly and BASIC 
listings, and much more. Other changes are underway, 
some of which will take time to develop, all of which are 
aimed at making MICRO work for you. 

One new way in which MICRO will work is to present 
material on diskette. Many program/articles are received 
that are 'too long' to print or to key in but are 'too good' 
not to use. Ratlier than ignore this significant material, or 
hold it for an eventual book/disk, MICRO will now offer 
certain materials on disk. See the announcement on page 
80 of this issue for details on our first offerings. 

If you are an author, MICRO guarantees that your 
manuscript will be reviewed and you will receive 
notification within two weeks of receipt. This rapid 
response will serve to get your material into print quickly 
with prompt payment, and will insure that the MICRO 
readers are getting the most current information. 

If you are a. reader, MICRO invites you to become a 
more active participant in the world of microcomputing. 
Tell us, through the fune Reader Survey, what you want 
MICRO to do for you. Send us your ideas, suggestions, 
feedback. (We do listen! The negative reader feedback that 
we received on our 'new, improved' listing techniques in 
the November and December issues made us find better 
methods.) And, most of all, write articles to share your 
knowledge and understanding with others. In this 
fantastic world of microcomputers, nobody knows 
everything, and everyone knows something. 

MICRO is >our magazine. Make it work for you. 



Editoi -in-Chief 



This Month's Cover 

when he looked at this windmill, Don Quixote saw 
double. He fought an imaginary giant, and he lost. 

In Double Vision, Valerie and Alan Fleeter fight a real 
giant ... the problem of one long listing using the 
CATALOG routine. Unlike Don Quixote, the Floeters win 
their battle. Now your listing can be condensed into two, 
three, or four columns, but don't worry— your not 
imagining it — you've got Double Vision. 
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SPECIALS on INTEGRATED CIRCUITS 

6502 (S) 4.90 6520 (S) 4.00 6522 @ 5.00 4116 (S) 1.85 
2532 (5) 5.90 2716 (Si 4.45 6116 (Si 6.45 4164 (S) 

Anchor 
Automation 
Signalman 
MODEMS 

FREE SOURCE MEMBERSHIP WITH SIGNALMAN 

All Signalman Modems are Direct Connect, and provide ttie 

best price-performance values. Dealer anil OEM liii|Uiries 

iiHiteit 

Volksmodem with computer cahle 68 

Mark Vl I Auto Dial/Auto AnsvKer 99 

Mark XII Smart Model 1 200/300 279 

DCHAYETsinartmodem 219 

DC Hayes Smartmodem 1 200/300 519 





130 
Call 
95 
29 

129 
20 

64 
56 
79 
48 
22 
32 
49 



570 

50 
75 
179 
79 
6 
24 
14 



PHOMgUEENforC64orVIC 
Apple Emulator for Commodore 64 
STAT Statistics Package for C64 
Soliit Oak 2 Level Stand lor C64 or VIC 

C64A'IC SvKitcti (networking) 
BACKUP VI. tape copier for C64 or VIC 
CARDBOARD/6 Mottierboard - VIC 
CARDBOARD/5 Mottierboard - C64 
CARD PRINT G Printer Int. v»ith Graphics 
CARD PRINT B Printer Interface— C64A'IC 
CARDB0ARD/3S Motherboard - VIC 
CARDCO C64A'IC Calculator Keypad 
CARDRAM/16 RAM Expansion - VIC 
Complete CAROCO Line in stock 
CIE and VIE IEEE Interfaces in stock 
MSD Dual SuperDisk for C64 or IEEE 
MAE Assembler for C64 
Koala Pad Touch Tablet— C64 or VIC 
CBC 4/12 Analog to Digital 4 chan/12 bit 
MULTI PLAN for C64 
Dust Cover for C64 or VIC 
Grand Master Chess for C64 
COMAL Language for C64 

with sprites, color graphics, sound, turtle graphics. 
BusCard II from Batleries Included 159 

ULTRA BASIC - 64 with Turtle Graphics 37 

Super Disk Utility - C64 - includes backup 1 9 

MicroChess - C64 - 8 levels of play 17 

HES MODEM wHh software for C64 45 

Commodore 64 Programmers Reference Guide 16 

WordPro 3^/64 with Spellrighl 85 

VIController (also C64) - BS R Controller 50 

COM VOICE Synthesizer for C64 or VIC 139 

VIC products in stock - call for extra discounts. 
Victory Software for VIC and C64je^ stock. _ _ _ 

aMe^rankun W 

FRANKLIN— complete line In stock 

Qll E NTI N Drives for Apple/Franklin 1 89 

Swapper Stopper 26 

automatic switch between paddles and joystick 

KRAFT Apple Joystick 40 

Kraft Apple Paddle Pair 30 

Koala Pad Touch Tablet-Apple/Franklin 90 
SPINNAKER Software in stock 
Broderbund Software in stock 

16K RAM Card for Apple 59 

Muitiplan— Microsoft 185 

Solid Oak 2 Level Stand for Apple 29 

Serial Card for Apple 89 

MPC RAM/80 column card for lie (AP/TXII 139 

Z80 Softcard and CP/M (Microsoft) 235 

RANA Elite I with Controller 389 

Parallel Printer Interface/Cable 69 
Microtek and MPC Interfaces in stock 

Grappler + Interlace 135 

DC Hayes Micromodem II, lie with Smartcom 245 

PFS: File or PFS: Report or PFS: Graph 95 

Videx 80 Column Card 209 

Apple Blue Book 19 



commodore 

See us for Personal, Business, and Educational 
requirements. Educational Discounts available. 

PEtSCAN i $245 Saseprice 

Allows you to connect up to 30 CBM/PET Computers to 
shared disk drives and printers. Completely transparent to the 
user Perfect for schools or multiple word processing con- 
figurations. Base configuration supports 2 computers. Addi- 
tional computer hookups $100 each. 



COMPACK/STCP 



$115 



Intelligent Terminal Package for PET. CBM, C64 

lncludes_ACIA_Hardware/_SJCP Software 

MSO Dual Super Disk for IEEE or C64 

replaces 4040 drive 



570 



SCREENMAKER80ColuninAilapterforC64 139 

Provide big screen capability for business applications. 
Copy-Writer Word Processor for C64 49 

Full-featured package with 800 lines of text in memory. 
Includes double column printing, graphic capability, full prin- 
ter support. 

Special Screenmaker/Copy-Wnter Combo [19 

VICTORY Software for VIC and C64 

Metamorphosis 16 Creator's Revenge 

Labyrinth of Creator 16 Galactic Conquest 
Kongo Kong 1 6 Annihilator 

Chomper Man 16 Grave Robbers 

Bounty Hunter 1 6 Adventure Pack I or I 



16 
16 
16 
13 
16 

"60 
89 

11 

78 

285 

189 

Compute's First Book of 64 Sound & Graphics 1 1 

SM-KIT enhanced PET/CBM BOM UtllHIos 40 

PET Spacemaker 11 ROM Switch 36 

Compute's First Book of Games 1 1 

Dust Cover for PET CBM, 4040, or 8050 8 
CmC Interfaces (ADA1800, ADA1450. SADI in stociq 

Computers Beforence Guide to 64 Graphics 1 1 

Computef's Machine Language for Beginners 1 1 
HES Software and Hardware in stock 



PAPER CLIP Word Processor- CBM/C64 
OBACLE Data Base from Batteries Included 
SPINNAKER Software C64. Apple. IBM, Atari 

Computef's First Book of PET/CBM 
POWER ROM Utilities for PET/CBM 
WordPro 4-t- - 8032, disk, printer 
VISICALC for PET ATARI, or Apple 



FiexFile for PET/CBM/C64 



$59 



DataBase, Report Writer with calculations. Mailing Lists. 
Easy to use, and can be_modified_ _ 

FdRtH""ferTET7c64' full FIG model - Cargile/Rlley 50 
includes all FORTH 79 Standard extensions, stajctured 6502 
assembler with nested decision macros, standard 16x64 
screens, ability to read/write BASIC sequential files, sample 
programs, introductory + reference manual. 
Metacompliler for FORTH for independent object code 30 
Floating Point for FORTH 20 

kM'MiTMSMLWorTEtyCBMVc^^ 99 

Virtually full Jensen-Wirth implementation is now suitable for 
advanced placement courses. 

EABL fo_r PET/CBM Disk-based_ASSEMBLER ^B5 

SnperGraplilcs - BASIC Language Exlensfains 45 

Fast graphics, sound, turtle graphics routines for PET/CBM. 

RAM7R"dM"forTET/CBM 4K $75 "8K$90 



COMAL Language for C64. CBM. PET 



14 



CBM Public Oomain Software- C64 27 disks 



75 



STAT for PET/CBM/C64 and Apple 95 

Comprehensive Statistical Analysis Boutlus 

Includes complete file handling capabilities, summary statis- 
tics, confidence intervals, hypothesis tests, exponential mean 
tests, multiple and power series regression, analysis of vari- 
ance, histograms, and non-parametric tests. _ 
PageMate~60 Command WorifProcessor 20 
Full-featured package for all Commodore computers. 
Full screen editing, and supports disK tape, and all 
printers. 



DISK 
SPECIALS 




Scotch (3M) 5" ss/dd 
Scotch (3M) 5" ds/dd 
Scotch (3M) 8" ss/sd 
Scotch (3M) 8" ss/dd 



10/2.10 50/1.90 100/1.86 

10/2.65 50/2.45 100/2.40 

10/2.20 50/2.00 100/1.98 

10/2.80 50/2.50 100/2.47 



We stocic VEHBATiM DISKS 

Write for Dealer and OEM prices. 



Sentlnal 5" ss/dd 
Sentinal 5" ds/dd 



10/1.80 50/1.75 100/1.65 
10/2.40 50/2.35 100/2.25 



We stocl( Dysan dislcs 



Wabash 5" ss/sd 
Wabash 5" ss/dd 
Wabash 5" ds/dd 



10/1.50 50/1.45 100/1,40 
10/1.80 50/1.75 100/1.65 
10/2.50 50/2.45 100/2.35 



We Steele MAXELL DISKS 

Write for dealer and OEM prices. 

Disk Storage Pages tO for $4 Hub Rings 50 for $6 
Disk Library Cases 8"— 3.00 5"— 2.25 
Head Disk Cleaning Kits 12 
AMARAY Disk Storage Systems in stock. 
Innovative Concepts FLIP 'N' FILES in stock. 



CASSETTE TAPES— AGFA PE-611 PREMIUM 

C-10 10/ .61 50/ .58 100/50 

C-_30 _ _ _ 10/; .85 _50/_82_ 100/ .70 

TtMiTH I data 

I systems 



Zl\h-\llk 99 


ZVM-123G 


89 


ZVM-t31 300 


ZVM-135 


490 


ZIOO 16-hit/8-hit System 




CALL 


Z29 Terminal (DEC and ADM compatible) 


680 


Z-1 50 IBM PC COMPATIBLE 


CALL 


Z-160P0BTABLEPC 




CALL 


We stock entire Zenith line. 






USI Video Monitors -Green 


orAMBER20MHzhi-res 


Dealer and OEM inquiries invited 





WHITE FOR IBM PC COMPATIBLE PRICES 

MultlPlan— IBM or Apple 179 

Ouadboard for IBM available 

KOALA PAD Touch Tablets— Apple, Atari, IBM, CBM 

Peachtext 5000 Software Package 199 

PFS Software for IBM and Apple in stock 

SPINNAKER Software C64/ViC, Apple. IBM, Atari 

VOTRAX Personal Speech System 269 

BMC 9191 Color MonHor 229 

BMC 12A 12" Green Monitor 79 

Oynax (Brether) DX- 1 5 Daisy Wheel Printer 469 

Brother HB-25 Daisy Wheel Ptinter (25 cps| 749 

Itoh Prowriter Parallel Printer 379 

Panasonic 1090 Printer with Correspondence Mode 279 

Gemini IDX 289 

EPSON, Okidata, Star Mlcrooics printers in stock 

US! CompuMOD 4 R F Modulator 29 

We Stock AMDEK Monitors 

A P Products 15% OFF 

COMPUTER COVERUPS IN STOCK 

BROOKS 6 Outlet Surge Suppressor/Noise Filter 54 

Surge Suppressor-6 outlet 29 

Electrohome 1302-2 13" Hi-res RGB Monitor 335 

Panasonic 1 2" Monitor (20 MHz) with audio 1 35 

Synerfek SYM-1 Microcomputer 189 



Hewlett Packard 

Write or call for prices. 



^n 



DATASHIELD BACKUP POWER SOURCE $265 

Battery back up Uninterruptible Power Supply with surge and 
noise filtering. The answer to your power problems 

SPI N MAKE R and Broderbund Software in stock. 



215-822-7727 

252 Bethlehem Pike 
Colmar, PA 1891 5 



A B Computers 



WRITE FOR CATALOG. Add S1 .50 per order for United Parcel 
We pay balance of UPS surface sfiipping cfiarges on all prepaid orders 
(add extra for mail. APO/FPO, air). Prices include cash discount. 
Regular prices sl.ghtly tiigtier. Prices subject to change 



MICRO 

Letterbox 



Dear MICRO: 

Some of your recent issues have had 
parallel articles for the various 
computers you cover. I like this 
feature. In fact, it is the main reason I 
renewed my subscription. It is 
frustrating to see neat programs written 
for other computers, but not for mine. 

Consequently, I was very 
disappointed that the well-written 
article on Fast Low Cost A/D 
Conveitei, MICRO 69, did not have 
listings for use of the converter with 
the Atari Computers. No A/D 
converters are available for the Atari (to 
my knowledge). This could have been 
very useful. The Atari was also slighted 
in the Adding Computer Senses to Your 
Micro. 

Your excellent Interface Clinic 
suffers from the same problem. I 
should think that there are other Atari 
users who might also wish to have 
routines useful for interfacing the Atari 
with analog circuitry. 

I hope you can extend this type of 
article to include the Atari in the 
future. Thank you for your 
consideration. 

Michael Soso 
Seattle, WA 

Youi points are well taken. The 
generality problem discussed above is 
even moie prevalent when dealing with 
the Ataii. The BASIC used in the Ataii 
is somewhat unique. While there are 
many minoi differences between the 
BASICS on the Apple, Commodore and 
Color Computer - they do have a lot 
in common. Atari is sort of out-in-left- 
field. For this issue, for example, I went 
to generalize the Talking to your 
Printer. 

First / had to wade through the Atari 
OPEN and XIO commands to setup the 
input and output, then had to 
DIMension all of the string variables, 
and then realized that due to the 
strange way Atari BASIC handles string 
concatenation - there was no way to 
get the program to work!!! Talk about 
frustration! 

Some of the other programs you 
mentioned could have been, and 
probably should have been, converted. 
If any Atarist has converted them, we 
would be happy to print updates. Let 



me make two proposals for future 
articles. First, MICRO will make a 
greater effort to perform Atari 
conversions where possible/practical. 
Second, if any Atari readers are 
interested in performing such 
conversions, we will work with them, 
pay a modest remuneration, and 
provide program/projects to convert. 
We can not do it all, but we can all do it 
together. 



Dear Editor, 

I read your editorial "Is It 
Reasonable?" in February 1984 MICRO 
#69 with interest. Many of your 
thoughts and statements are true and I 
agreed with them. I do think you 
touched on a very important aspect of 
the APPLE success (and failure] . That is 
"Third Party" vendors, which I'll 
come back to in a moment. 

I believe the success of the 
microcomputer in the home and 
workplace stems from the fact that we 
are trained to use tools of 
"convenience", for example, lo,5 
tables, slide rule, electronic calculator 
and the microcomputer. We must have 
some knowledge of their function t(5 
use them successfully and effectively. 
It is exciting to watch a human float 
effortlessly in space, but the thoughts 
of the details of what it really took t(5 
put him there and get him back ari; 
much more exciting. Some knowledge; 
of the intricate steps required is where 
it is really at. So it is with the 
microcomputer. 

What Apple, Inc. did with the Apple 
II was give the curious the opportunity 
to learn the intricate details whicli 
cause the 11 to function. They produced 
a Disk Operating System and Monitor 
that was easily and quickly understood. 
Your publication published a complete 
understanding of the Apple 11' 3 
operating system. I think the way the 
'Steve(s)' started made this 
environment necessary. They needed 
the support of the Home Brev;^ 
Computer Clubs, and also of Third 
Party Vendors. If the software didn't 
get written and published as fast as it 
did, I believe Apple wouldn't be as 
successful as it is. The resources 



weren't available at the time. It is the 
software vendors and publications such 
as yours that contributed a 
measureable amount of resources to 
Apple's success. 

It seems to me the Apple III, Lisa, 
MAC, et al, will follow the path of the 
TI-99 unless Apple will facilitate easier 
learning of the Operating System. The 
person in the business place may only 
want applications software, but there 
are orders of magnitude more at home 
wanting to write their own software 
hoping it will be of sufficient quality to 
be published. Apple needs to loosen 
their management philosophies 
regarding the MAC and provide a 
simpler operating system. 

I am a co-founder of a 170 member 
Apple users group here in Silicon 
Valley. We were fortunate to have 
Apple's sales department demonstrate 
the MAC the day after it was unveiled. 
We had 300 people attend the 
presentation - an exciting turn out! 
Disappointment quickly set in when I 
discovered the complexity of the 
operating system. I decided the MAC 
was not something I would be 
interested in. I think MAC will follow 
Lisa unless Apple wakes up and 
provides a much simpler operating 
system so the Third Party vendors can 
contribute again. 

I am now waiting for the new 
650XX chip that has been reported in 
various news releases. If it doesn't 
satisfy the simple Apple II operating 
system concept with much expanded 
memory, I will seriously look at the 
Saybrook or QWERTY system again. I 
suppose you have guessed what I think 
is reasonable. It is a source of hardware 
and information that will give our tools 
of convenience a chance to be even 
more so. 

Robert C. Madden 
San Jose, CA 



Sir 

"The Apple/// had limited 
capabilities..."!!?? 

Surely you jest! 256K of pure RAM: 
what could be more versatile? An 
operating system which BYTE 
magazine called "the most 
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In a few millionths of a second, common electrical surges and spikes 
can enter your data processing equipment and cause memory loss, 
false logic and misregistraOon. Surges very often do permanent 
damage to microcircuitry. 

FLEXIDUCT Surge Suppressors catch surges and spikes before they 
have a chance to enter your equipment In billionths of a second 
(Nanoseconds),HlXIDOCf Surge Suppressors dissipate surges and 
spikes from any side of the line (most protect only one side). 
The multi-outlet unit is ideally suited to the computerized work- 
station. It gives you the advantage of circuit breaker protection with 
plenty of outlets for data processor and peripheral equipment 
No computer should be without the: protection of a FLEXIDUCT Surge 
Suppressor...csp«cialiy yours! Write or call for further information. 
Available from office products retailers. 



® Surge Suppressors 



a product of Winders & Geist, Inc. P.O. Box 83088 Lincoln, NE 68501 402/474-3400 
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sophisticated operating system 
available for an 8-bit machine". The 
ability to run virtually all Apple ][ 
software. Can you seriously consider 
this to be limited capability? 

Now, there is no doubt that the /// 
had some early hardware problems, 
which in turn discouraged software 
developers from jumping on the 
bandwagon. This, rather than "limited 
capability" resulted in the lack of early 
acceptance of the ///. Apple has now 
revitalized the ///, set up specific 
resources for it, and even published a 
booklet (approximately entitled 'Will 
someone tell me what you can do with 
an Apple ///V\ which lists a great 
range of software available for the ///. 

I develop software on the /// for 
both it and the ][. I also use the ///for 
all my other work: word processing, 
data base, modem, Pascal, BASIC, 
Assembly ... etc. I will gladly stack up 
the capabilities of the Apple /// against 
any other 8-bit machine on the market, 
regardless of price or manufacturer (and 
even against some of the pseudo-16s). 
Would you care to enumerate its 
limitations? 
Tracy Valleau 
Pacific Grove, CA 

I personally was unimpressed with the 
Apple /// when I saw it. I was at that 
time completing development of a 
6809 - based system that sold for $500 
less than the basic Apple /// and 
offered almost eight times the disk 
capacity, had a far superior keyboard, 
included many hardware features and a 
complete package of user - friendly 
software. I really had expected a lot 
more from Apple for the price - not 
just more memory. I guess today I 
would say it is perhaps a good 
computer, certainly not a great one. 
The next writer provides another 
possible reason for the lukewarm 
reception the Apple /// got. 



Dear Sirs: 

Although this letter will refer to the 
program by Joseph Kattan in MICRO 
71, my criticisms are really directed at 
MICRO'S editorial policies, rather than 
the specific program. The Credit 
Register program looks like a good idea, 
and I would like to run it on my 



computer. However, it is written in 
such a way that it is essentially not 
transferable to any computer other 
than the Atari. The GRAPHICS 
commands, as also the PEEKs and 
POKEs are totally specific to the Atari, 
and lacking REMs as to their function, 
it is impossible to reproduce them on 
another machine. If the program 
involved something that had to be 
hardware dependent, such as a hi-res 
graphics presentation, there might be 
excuse for this. However, the screen 
presentation that is shown looks like: 
fairly straightforward printing, which it: 
should be possible to generate with. 
standard PRINT statements. 

You are in a favorable position for 
insisting on some kind of standaidi 
BASIC in your program listings, tC' 
improve as far as possible the; 
portability of programs from one 
computer to another. If this means that 
all programs are restricted to i. 
minimum implementation of BASIC \i. 
sort of lowest common denominator]^ 
this is not necessarily a bad thing. It is: 
very elegant to use all possible bells: 
and whistles that are specific to youi' 
computer, in order to get the mosi: 
sophisticated display; but if this is onl>- 
achieved at the expense of portability, '.'. 
believe it is a bad bargin. 
Rolf B. Johannesen 
Rockville, MD 

/ agree with everything that you say. 
except for the problem being one of 
'MICRO'S editorial policies'! We 
evaluate every article with machine 
generality in mind. Literally hundreds 
of programs /articles have been rejected 
because they were hmited to a single 
computer. The ideal would be for every 
program to work on every machine. 
Unfortunately, there are a number of 
factors working against this ideal. First, 
most authors have expertise on one 
micro and are often not awaie of what 
is specific to their BASIC. Second, it i.i 
easier to write machine specific BASIC. 
Third, most authors do not have 
multiple micros for testing variou.^ 
versions. Fourth, it takes a great deal of 
work to take a program that has not 
been written with generality in mind 
and generalize it. We have worked 
many hours recently just to geneialize 
a few programs, including Smart 



Modem, (converted for three additional 
microcomputers), MICRO 68; Adding 
Computer Senses, (converted for two 
additional microcomputers) , MICRO 
69; Least-Squares Curve Fitter and 
PEEKing TOM, MICRO 70; Talking to 
Your Printer, in this issue; and so forth. 
Fifth, a generalized program requires 
testing. It may require hardware 
configurations that neither the author 
nor MICRO possess. Sixth, errors may 
be induced into the program during the 
generalization process. 

The Talking to Your Printer article 
shows one technique that we use and 
hope that other programmers will 
adopt where possible. We plan to 
describe other techniques in future 
issues. Unfortunately we are not in a 
position to insist; we request, and we 
conjole, and we do reject. 

Dear Sir, 

I haven't been able to enter the 
program Master Directory for the 
Apple, MICRO 67/69 into my Apple 
II -1- with Language Card. My usual 
procedure with Machine Language 
programs is to convert to a Hex dump 
but the Master Directory listing is one 
that I have never seen before and it does 
not seem suitable to this method. 

Would you please advise how I 
could go about using this program. 

Herman F. Schulz 
Schenectady, NY 

Mr. Hill's program was too long to 
print and too good to ignore! We 
normally print the object code along 
with the source. In this case we 
dropped the object code to save space. 
Due to a number of letters and phone 
calls, we planned to print the hex dump 
in this issue. Turns out it would take a 
full four pages, four coltmms per page! 
What to do^ We have arrived at two 
solutions: 1. We will provide a 
complete listing including the object 
code for $1.00 to cover copying and a 
self - addressed, stamped - envelope; 
or, 2. We will provide the assembler 
source (in LISA format) and the binary 
file (BRUM format) on a diskette, and 
the printed listing, for $15.00. See the 
MICRO Diskette Service 

announcement on page 80 
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Raise your Apple's IQ 

o 

Twelve Times A Year! 
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A one-year subscription 
to NIBBLE brings you 
twelve issues packed with 
programs and 
comprehensive articles to 
help you get the best out 
of your Apple. 

You'll get over $500 
worth of programs for 
Home, Business, Education 
and Entertainment with 
complete instructions. 
Nibble articles show what 
each program does, how to 
use it and enter it into your 
Apple, Franklin ACE or 
other Applesoft-compatible 
computer. 

You'll enjoy regular 
features for the beginner as 
well as the expert. Among 

©1983 by MicroSPARC Inc. AD Rignts Reserved 



these are the htlucational 
Corner, where programs 
hdp make learning fun. 
Tips & lechniqucs which 
showcases little-known 
programming tricks. 
Utilities to facilitate Basic. 
DOS & Printing, and 
Games with arcade fun 
you can type and run. 



IryaNIBBLEl 

Here'swhatsomeoi '• f i. iiior^ s.i^ 
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tixApple!" 
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Note 

Q Canada surtace subscnptiort rate is %M ^ 
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C Domestic US. First Qass suoscription rate is $5 1 95 

O Canada Air Mait subscription rate is $^.95 

D Outside the L> S. and Canada Air Maitsubscnption ijtu -a S89 95 

Atl payments must be in U S. fundsdrawnonaU.S bank 






join the more than ■ 
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Product Name: IDS, An Integrated Development 
System for the Apple n Plus 

Equip. Req'd: Apple U or n + 
Price: $85.00 

Manufacturer: R.R. Michaels, Inc., 

Box 565 

Leesburg, VA, 22075 

703/777-1933 

Description: A utility package, written in 6502 machine 
langauge, to support Applesoft programming. Allows for 
the easy construction of screen displays for data entry, file 
structures for record storage and retrieval of output 
formatting for reports. 

Pluses: The package is easy to use. It includes an editor 
for constructing display screens, which are keyed to 
variable labels; this permits the Applesoft programmer to 
coordinate their variables directly with the input display 
screen. Input edit checks can be performed to reduce the 
chance of key-stroke error. The record definition system 
permits easy storage and retrieval of both sequential and 
randomly accessed files. Individual fields, as well as entire 
records, may be stored or retrieved. One Applesoft 
weakness is in the output of data, where it lacks a PRINT 
USING capability. IDS permits the programmer a variety 
of display formatting, including specified decimal places, 
embedded commas and dollar signs and right justification. 
The IDS system uses CALLS to reserved variable names 
which perform each function (all of the calls begin with Z 
to avoid confusion with other BASIC variables). 

Minuses: The IDS package has a modest RAMN overhead 
of a minimum of $2000 bytes. In addition, several of the 
structure definition tables reside just below this address. 
Thus, the user will sacrifice at least 8K to use the IDS 
software, although many Applesoft routines are 
eliminated, shortening the space needed for BASIC code. 

Documentation: The manual is well written. It begins 
with a tutorial on the use of the IDS routines, including 
the construction and use of each of the three subsystems. 
A reference section describes each command available. 

Skill level: The package will be of most interest to the 
Applesoft programmer writing commercial grade software. 

Reviewer: David Morganstein 



Product Name: Magic Memory 

Equip. Req'd: Apple H -i- , He with one disk drive and 

48KRAM 
Price: $100 



Manufacturer: 



ARTSCI 

5547 Satsuma Blvd. 

North Hollywood, CA 91601 



Description: Magic Memory bills itself as an electronic 
address book. It is, in fact, a flexible way to create and 
recall a variety of information. All entries can be cross- 
indexed, easily updated, and printed. Files can be saved on 
any disk, making it virtually impossible to run out of 
storage space. 

Pluses: Looking to future developments, the program is 
entirely compatible with a hard disk drive and disk space 
is reserved withia a submodule for new utilities that may 
be created. 

Minuses: The c;opy-protected master disk cannot be 
copied to a hard drive and the 70-column video driver can 
only be used witli a 64K system. Memory does not let you 
carry a file format from one file to another; rather you start 
each file blank and have to enter all data. 

Documentation: A looseleaf manual provides ample 
instructions and some technical information. 

Skill level: Intermediate to advanced. 

Reviewer: Mike Cherry 



Product Name: Super Text 

Equip. Req'd: Commodore 64 with one disk drive and 

a printer 
Price: $100 

Manufacturer: Muse Software 

347 N. Charles Street 

Baltimore, MD 21201 

Description: A word-processor with a software-based 80 
column display, Super-Text is loaded with features: 
creating/saving files, block moves, justification, 
automatic page numbering, find and replace, tabs, and 
imbedded control characters. Also available are file merge, 
on-screen help, word counting, and " autolinking" your 
files to the printer. 

Piuses: Super-T;xt provides several printer parameters 
which can be adapted to fit almost any printer and 
interface.. The 80 column display is a "bonus" feature and 
does not gobble up all your memory. 

Minuses: Creat:ng and editing text occur in separate 
modes. Jumping from mode to mode will slow you down 
and confuse you at first. Also, the screen will not 
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necessarily show the printer's format. You will need to 
refer to a preview section to verify the printout is the way 
you want it. 

Documentation: A spiral booklet contains tutorial and 
technical information. 

Skill level: Beginner and up. 

Reviewer: Mike Cherry 



Product Name: Computer Mechanic 

Equip. Req'd: Commodore 64 with disk drive or 

cassette 
Price: $60 

Manufacturer: Softsync, Inc. 

14 East 34th Street 

New York, NY 10016 

Description: A diagnostic program to help pinpoint 
mechanical problems with your car. Mechanic also 
teaches the basics of car maintenance and sets up a repair 
history and maintenance schedule for any car. 

Pluses: Mechanic will prepare a standard disk to accept 
files giving you room for hundreds of records. The use of 
the Commodore's graphics and color abilities is excellent 
and the advice is sound and helpful. 

Minuses: Error-handling is marginal. Data entries are not 
adequately checked for proper input and error messages 
may confuse the beginner. Mechanic's simple approach 
limits the diagnostic advice/record-keeping to an 
introductory level. 

Documentation: A thin 6-page pamphlet provides 
orientation but no technical information. 

Skill level: Intermediate to advanced level. Poor error- 
handling means a beginner may have trouble with this 
program. 

Reviewer: Mike Cherry 



Product Name: Delta Drawing 

Equip. Req'd: Apple H, II -i-, He with one disk drive &. 

48KRAM 
Price: $40 

Manufacturer: Spinnaker Software 

215 First Street 

Cambridge, MA 



Description: A FORTH-based program geared towards 
elementary school use lets you create drawings with 
simple keyboard commands. Various configurations allow 
for color fill, background color, preprogrammed patterns, 
saving and printing programs in text or graphics modes. 

Pluses: Easy to learn, Delta Drawing is fast and pleasing. 
Children will be able to create interesting pictures with 
only a little practice. The "color fill" command is 
especially fun to watch. 

Minuses: Only the (jtappler-i- interface is supported for 
printing graphics; alL else will print only text. Patterns 
saved can not later be recalled and included in BASIC 
programs. 

Documentation: An excellent tutorial and separate 'flash 
cards" illustrating vsirious patterns are included. 

Skill level: Beginner and up. 

Reviewer: Mike Cherry 



Product Name: Mail Controller 

Equip. Req'd: Coramodore 64 with 1541 Disk Drive, 
1525 printer or other with interface. 

Manufacturer: Orbyte Software 
Box 948 
Waterbury, CT 06720 

Description: An easy to use mail list program. Allows 
over 2000 entries per disk with editing functions available. 
Will print labels in one across format or print out on paper 
stock taking advantage of your paper width. The program 
allows formatting a new data disk in order to access more 
records. This makes it possible to have extremely large 
files across several d:.sks. 

Pluses: The program is powerful and easy to use. All work 
starts at the menu and the function keys are taken 
advantage of to simjilify work. A help screen is provided 
for the New Disk and Data Entry functions. Mail 
Controller may also be used as a small database for other 
than mail lists, although the amount of information 
storage is limited. 

Minuses: There is a limit of 73 characters that may be 
used for the fields in a standard mail list format. This 
requires careful field setup. 

Documentation: The 38-page manual is one of the easiest 
to use that I have Keen. Each function is made clearly 
imderstandable. 
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Skill level: Anyone, from beginner to expert, would be 
able to use this program. 

Reviewer: Richard E. DeVore 



Product Name: Experiments in Human Physiology 

Equip. Req'd: Apple H, II + , lie 

Price: $249 (Demo disk available for 30-day 

preview) 
Manufacturer: HRM Software 

175 Tompkins Avenue 

Pleasantville, NY 10570 

Description: A combination of hardware and software to 
implement a variety of experiments in Biology and Human 
Physiology including: Psychomotor Response Time, 
Calibration of Temperature Probe, Skin Temperature, 
Respiration Rate, Heart Rate and Polygraph Testing. A 
useful supplement ot a High School Biology class. All of 
the experiments would easily fit into the classroom 
curriculum, helping the student to further understand 
basic functions by first hand experiments and encouraging 
further exploration in this area. 

Pluses: The experiments are simple but dramatic, giving 
the impression of a "mini-laboratory". The students learn 
by doing, gaining not only class work, but experience in 
using computers as well. 

Minuses: None. 

Documentation: Well written and clearly explaining the 
experiments. 

Skill level: Beginner,- the hardware connections are 
clearly explained, although they probably should be done 
by the teacher. 



sort features are available for databsase manipulation. 
Data entry is accomplished via quick entry screens 
designed by the user. Up to 5 separate data entry screens 
may be defined per logical record. 

Pluses: Good flexibility in design allows for a wide variety 
of applications. Subtotals, totals and averages can be 
automatically calculated in reports. Other user-definable 
formulas can add versatility to the report writer feature. 
The entire program is written in Extended Color Basic and 
is provided as ussr-modifiable code. This allows the user 
to make such things as printer baud rate settings a 
permanent part of the program. Record segmentation 
provides the ability to add fields even after records have 
been entered. Select and sort features are quick and 
efficient. Special menu format allows for end user input 
with reduced menu. Password protection is available on 
selected fields. 

Minuses: The program does not provide for boolean 
operations during report writing aside from the standard 
selection process. The documentation claims that a field 
name can be up to 15 bytes long, but the program would 
allow only a 12 byte name. The program does not provide 
any automated word procesing capabilities. While this can 
be accomplished using the report writer, much manual 
intervention is rt;quired during the printing phase. 

Documentation: A 35-page manual is well-written and 
easy to understand. It makes good use of examples and the 
diskette also includes those same examples to give the 
new user an established database to practice with. 

Skill level: Intermediate. Programming skill is not 
required, but some familiarity with computer records is 
useful. 

Reviewer: Norman Garrett 



Reviewer: Edouard Garcia 



Product Name: Pro-Color-File 2.1 



Equip. Req'd: 

Price: 

Manufacturer: 



TRS-80 Color Computer 

$79.95 

Derringer Software 

P.O. Box 5300 

Florence, SC 29502 



Description: A database utility. File definition capability 
allows up to 60 fields per record, to a maximum length of 
1024 bytes. Fields can be defined as numeric or 
alphanumeric. Report formatting capabilities include 
math functions, report layout and definable work fields for 
use in reports. Up to five distinct report formats may be 
defined and invokable at any one time. Search, select and 



Product Name: HJL-57 ColorComputer Replacement 



Equip. Req'd: 

Price: 

Manufacturer: 



Keyboard 

TRS-80 Color Computer 

$79.95 

HJL Products 

P.O. Box 24954 

Rochester, NY 14624 



Description: A direct replacement for the standard Color 
Computer keyboard, but unlike others on the market, it 
has the layout aad color scheme of the original with the 
addition of a loBger spacebar and four function keys (one 
locking). It includes installation instructions, necessary 
hardware and a :replacement bezel. The keyboard is fully 
shielded ahd has the connecting cable installed (the 
purchaser must specify the computer version desired so 
that the correct connecting cable can be determined). The 
keyboard rests at about the same angle as the original, 
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with the overall contour slightly modified. It comes with a 
one year guarantee. 

Pluses: The contour of the keyboard (the slight variation 
of angle between rows of keys) is modified a bit to give it a 
more natural feel. This is especially apparent with the 
spacebar, which is much more accessible than on the 
original. The texture and sculpture of the low profile keys 
are significantly improved. An additional benefit is the RFI 
shielding included, which noticeably reduced the RFI on 
my television. 

Installation is straightforward. For a person who has 
never opened the computer case, it would probably take a 
maximum of 30 minutes. The only modification is to 
shorten one plastic post. The unit rests on the original 
posts. Manufacturer telephone response to questions is 
good. The finished appearance is good, blending well with 
the original and being truly a replacement and not a 
modification. 

Minuses: The effect of the locked PF2 key on other keys 
needs to be explained [more explanation on the actual use 
of the function keys in general would be helpful). This 
would allow a programmer to better utilize the 
programmed key functions. 

Documentation: Consists of excellent, easy to follow 
installation instructions, the decimal values generated by 
the function keys, and a sample program which will 
program your function keys as follows: Fl dumps the 
current screen to the printer; F2 allows auto repeat of any 
key (F2 locks); F3 flips between upper and all lower case; 
F4 acts as a control key and subtracts 64 from the ASCII 
value of any key. 

Skill level: Installation requires no technical experience. 
The instructions are geared to a non-technical installer. 

Reviewer: Norman Garrett 



Product Name: Flight Simulator D 

Equip. Req'd: Apple 11+ 48K, DiskDrive 

Price: $49.99 

Manufacturer: SubLOGIC Corporation 

713 Edgebrook Drive 

Champaign, IL 61820 

Description: The long awaited sequel to Flight Simulator 
I. An incredibly well thought out product of real value to 
pilots and fascinating to those not aviation minded. The 
package includes maps of the four areas of the U.S. 
modeled in detail on the main disk. The company 
advertises the availability of other scenery disks. Care has 
been taken to simulate the intricacies of communications 
and navigation that are in real life the most demanding 
tasks of a pilot. 



Pluses: Sheer attention to detail. User variable weather is 
a particularly valuable feature in that it brings home to the 
user precisely how poor weather creates chaos with flying. 
For the younger user, a World War I dogfight game is 
included as a special option of the main disk. 

Minuses: There really are not many. In places, the 
instructions could be improved. There is a tendency to 
assume too much aeronautical knowledge on the part of 
the user. The authors seemed to be aware of it, but were 
not entirely successf j1 in avoiding the problem. 

Documentation: Overall, I was pleased with it. The 
manual was printed in a professional manner, and the 
incredible detail of tie product was handled nicely. Each 
feature is explained without hype or unnecessary 
enthusiasm. 

Skill level: A novice computer user who follows the 
manual should have no trouble using the product. 

Reviewer: Chris Williams 



Product Name: The World of Counting 



Equip. Req'd: 

Price: 

Manufacturer: 



App le 11+ or Ue 

$24.95 

Educomp Enterprises 

191 North 650 East 

Bountiful, UT 84010 



Description: Designed to teach counting principles to 
learning-disabled class or regular preschool. Provides 
examples, demonstrations, quiz questions, and a final 
test, using hires graphics, music and sound effects for 
reinforcement. Student scores and response times are 
displayed at end of lesson. 

Pluses: Lots of repe;tition and reinforcement. Program 
written in Apple Pilct - can be customized to meet user's 
specific needs. Good graphics. 

Minuses: Pictures are drawn very slowly (inherent 
problem in Pilot). Musical reward may be confused with 
musical number proropt. Scores are not stored on disk for 
later reference. 

Documentation: 8-page pamphlet with excellent program 
description and directions. Software also shows 
instructions. 

Skill level: 3 to 6 >ear old (mental age); adult to start 
program. 

Reviewer: Mary Gasiorowski 
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Product Name: Practicalc II 

Equip, Req'd: 48K Apple II + , He and compatible 

computer 
Price: $69.95 

Manufacturer: Micro Software International Inc. 

The Silk Mill 

44 Oak Street 

Newton Upper Falls, MA 02164 



Description: This is not another Visicalc clone although 
it does have the same basic features; 80 column width, 
scrolling, columnar movement/expansion, and all the 
other spreadsheet "musts." It has some things that the 
others are lacking, for instance database management that 
enables you to do alpha and numeric sorting and 
searching. There are also prompts for entry during 
calculation and printing of list formulas. 

Practicalc n was designed with the nonprofessional 
user in mind. It certainly is capable of being used in a 
business setting but unlike most "professional" packages 
it has some friendlier additions. For example, you may 
not use a particular spreadsheet but once a month, so 
chances are the next time around you won't remember 
how you set things up. This is not a trivial matter when 
you are dealing with columns and numbers. Practicalc II 



CHECKBOOK 

MANAGER 



This is a superb checkbook package evolving from over 3 years of 
rigorous testing and usage. Stores up to 6,000 checks on one Disk. 
Machine language where it counts! 

• Easily and quickly enter checks & deposits, with "Shorthand" 
options. No waiting for disk with each entry. Entries are 
automatically saved to disk when you return to the main 
menu . . . stores 1000 checks in approximately 8 seconds. 

• Payee and category entry up to 39 characters each. 255 
different categories possible. Check ho.'s up to 32766 

• Powerful search feature, very fast, prints to screen or printer, 
locates by all fields. Locate a range of Check No.'s ! Dates! Even 
payees or categories between dates. Totals all checks/deposits 
located. 

• Look at your spending trends with Hi-Res charting 

• Easily make corrections 

• ChecktMDok balancing 

• Up to 6 checking accounts per disk 

• User friendly, menu driven, fully documented 

CHECK PRINTER MODULE: 

User - Definable Check Forms alfows Printing r ^ m Qr 
to almost att computer checks. (Include your *|fl 



$ 



34. 



95 



I computer checks. (Include your 
Checkbook Manager Serial No, when ordering.) 
ORDER BOTH FOR $43.50 
Add $1,50 Shipping & Handling Chg. to all prices. 



J & M SOFTWARE 



Dept. E 



P.O. Box 2132 
Athens, Texas 75751 

( 2 14 ) b75 ■ 84 79 -apple is a registered irademarh ol Apple Compule'r. Inc 



^■H) Programs for APPLE 11 + and 

j2S^\ APPLEIIeVwilhoneor'iwo 

disi\ drives (Preferably two) 



saves a spreadsheet with the menu that contains all of the 
printer settings md other pertinent information. 

Pluses: Unlike the other spreadsheet packages you have 
seen, the price I'or this one is only $69.95! Perhaps you 
had previously found it hard to justify an expenditure of 
several hundred dollars for something that you only 
needed a few times a month. At this price intermittent use 
is justifiable, particularly when you think of the time 
saved and the frustration avoided. 

One unique ,md handy "extra" offered by Practicalc 11 
is that it includes a word processing package. It is your 
basic WP, but has a few nice additions not usually found. 
One of these is the capability of typing columnarly - 
newspaper style. This is a feature many major WP 
packages do not have. It is one of those things that might 
not be useful to most people on a regular basis, but when 
you need it - v/hat a blessing! The standards - insert, 
delete, etc., are nicely implemented. When 
deleting/inserting in newspaper-style typed text, 
correcting one column does not affect the other. 

Besides the bargain price, Practicalc II has another 
major difference - it is not copy protected. Microsoftware 
hopes this feature will not be abused, but instead will aid 
its customers by allowing them to have a copy of 
Practicalc 11 on different diskettes. This certainly would 
enable more facile use of their product and make life a 
little easier for the user. Using 15K of memory, there is 
plenty of room for other things. The actual code can be 
accessed if you .are willing to disassemble it [use Big Mac) 
and put the whole thing back together. I would suggest 
you make a few copies for backup first. 

Minuses: The iDne area in which Practicalc II is not as 
proficient is speed. The difference is minimal, most 
noticeable when saving a spreadsheet. Because each sheet 
is saved with a copy of the menu and its settings, it takes a 
little longer to be stored on disk - a reasonable tradeoff to 
most users. The scrolling and screen movement are not as 
fast as its competitors, but again the difference is 
negligible. 

Documentation: The documentation for Practicalc II is 
clearly writter with examples and logical steps for 
procedures. It contains an Index and a good Table of 
Contents - boti very useful. Future addenda should be 
available to users for a nominal fee. Also available will be 
diskettes containing new versions to help kill the bigger 
bugs. These will sell for $5.00 a diskette. 

Skill level: The level of expertise needed by the user 
ranges from beginner to expert. The beginner can learn the 
basics rather easily; the more advanced the user the more 
options and features he/she will be able to utilize. 



Reviewer: Mark S. Morano 
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® SANYO MONITOR SALE!! 




9" Doto Monitor 



80 Columns x 24 lines 
Green text display 
Easy to read - no eye strain 
Up front brightness control 
High resolution graphics 
Quick start - no preheating 
Regulated power supply 
Attractive nnetal cabinet 
UL and FCC approved 



• 15 Day Free Trial - 90 Day Immediate Replacement Warranty 



9" Screen - Green Text Display *$ 69.00 

12" Screen - Green Text Display (anti-reflective screen) *$ 99.00 
12" Screen - Amber Text Display (anti-reflective screen) *$ 99.00 
1 4" Screen - Color Monitor (national brand) *$239.00 

*PLUS $9.95 for Connecting Cable. 

Display Monitors From Sanyo 



With the need for computing power growing every day, Sanyo has 
stepped in to meet the demand with a whole new line of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5x7 dot 
characters as the input is 24 lines of characters with up to 
80 characters per line. 

Equally important, ail are built with Sanyo's commitment 
to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 



® SANYO 



Offtda/ Video Products 
of the Los Ange/^s 1984 dymptcs 




«0. ' )>-*, 



05^ 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



■ Add 110.00 for shipping, handling and Insurance. Illinois rasldents V 
I please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII | 
I orders. WE DO NOT EXPORT TO OTHER COUNTRIES. j 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 j 
I days for delivery, 2 to 7 days for phone orders, 1 day express mall! ■ 
I Canada orders must be In U.S. dollars. Visa ■ MasterCard ■ C.O.D. • 



CMTpESpDI^pC (WE LOVE OUR CUSTOMERS) 

BOX 550, I3ARRINGT0N, ILLINOIS 60010 
Phone 312/382-5244 to order 



80 COLUMN PRINTER SALE— $149.00 
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COM-STAR T/F 



Tractor 
Friction 
Printer 



COMSTAR 



only 



** 



15 Day Free Trial -180 Day Immediate Replacement Warranty 



Lowest Priced, Best Quality, Tractor- Friction Printers in the U.S.A. 

• Fast 80-120-160 Characters Per Second • 40,46,66.80,96, 132 Characters Per Line Spacing 

• Word Processing • Print Labels, Letters, Graphs and Tables • List Your Programs 

• Print Out Data from Modem Services • "The Most Important Accessory for Your Computer" 



•STX-80 COLUMN 
PRINTER— $149.00 

Prints full 80 columns. Super silent 
operation, 60 CPS, prints Hi-resolution 
graphics and block graphics, expanded 
character set, exceptionally clear 
characters, fantastic print quality, uses 
inexpensive thermal paper! Best thermal 
printer in the U.S.A.! (Centronics Parallel 
Interface). 

**DELUXE COMSTAR T/F 
80 CPS PRINTER-$199.00 

The COMSTAR T/F (Tractor Friction) 
PRINTER is exceptionally versatile. It 
prints 8'A" x 11" standard size single 
sheet stationary or continuous feed com- 
puter paper. Bi-directional, impact dot 
matrix, 80 CPS, 224 characters. (Cen- 
tronics Parallel Interface). 

Premium Quality— 120 CPS 

COMSTAR T/F SUPER-10X 

PRINTER— $289.00 

COfVlSTAR T/F (Tractor Friction) SUPER- 
10X PRINTER gives you all the features 
of the COIVISTAR T/F PRINTER plus a 
10" carriage, 120 CPS, 9 x 9 dot matrix 
with double strike capability for 18 x 18 
dot matrix (near letter quality), high 
resolution bit Image (120 x 144 dot 
matrix), underlining, back spacing, left 
and right margin settings, true lower 
decenders with super and subscripts, 
prints standard, italic, block graphics 



and special characters, plus 2K of user 
definable characters! The COMSTAR T/F- 
SUPER-10X PRINTER was Rated No. 1 by 
"Popular Science Magazine." It gives you 
print quality and features found on 
printers costing twice as much!! (Cen- 
tronics Parallel Interface) (Better than Ep- 
son FX 80). 

Premium Quality— 120 CPS 

COMSTAR T/F SUPER-1 5'/;" 

PRINTER— $379.00 

COMSTAR T/F SUPER IS'/j" PRINTER 
has all the features of the COMSTAR T/I- 
SUPER-10X PRINTER plus a 15'A' car- 
riage and more powerful electronic:? 
components to handle large ledger 
business forms! (Better than Epson FX 
100). 

Superior Quality 

SUPER HIGH SPEED— 160 CPS 

COMSTAR T/F 10" 

PRINTER-$489.00 

SUPER HIGH SPEED COMSTAR T/F 
(Tractor Friction) PRINTER has all the 
features of the COMSTAR SUPER-10X 
PRINTER plus SUPER HIGH SPEEO 
PRINTING— 160 CPS, 100% duty cycle, 
8K buffer, diverse character fonts, 
special symbols and true decenders, ver- 
tical and horizontal tabs. RED HOT 
BUSINESS PRINTER at an unbelievable 
low price!! (Serial or Centronics Parallel 
Interface) 
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I Add $17.50 for shipping, handling and Insurance. WE DO NOT EXPORT j 
j TO OTHER COUNTRIES EXCEPT CANADA. j 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 days j 
j for delivery, 2 to 7 days for phone orders, 1 day express mail! Canada ■ 
i orders must be in U.S. dollars. VISA - MASTER CARD ACCEPTED. We j 
I ship C.O.D. I 



Superior Quality 

SUPER HIGH SPEED— 160 CPS 

COMSTAR T/F 15'/i" 

PRINTER— $579.00 

SUPER HIGH SPEED COMSTAR T/F 
15'A" PRINTER has all the features of the 
SUPER HIGH SPEED COMSTAR T/F 10" 
PRINTER plus a 15'/i" carriage and more 
powerful electronics to handle larger 
ledger business forms! Exclusive bottom 
paper feed!! 



PARALLEL INTERFACES 

For VIC- 20 and COM-64— $49.00 
For All Apple Computers— $79.00 

NOTE: Other printer interfaces 
available at computer stores! 



Double 

Immediate Replacement 

Warranty 

We have doubled the normal 90 day war- 
ranty to 180 days. Therefore if your 
printer fails within "180 days" from the 
date of purchase you simply send your 
printer to us via United Parcel Service, 
prepaid. We will IMMEDIATELY send you 
a replacement printer at no charge, 
prepaid. This warranty, once again, 
proves that WE LOVE OUR 
CUSTOMERS! 



ENTERPRIZES-' 



LOVE OUR CUSTOMERS) 



BOX 551), BARRINQTON, ILLINOIS 60010 
Phone 3112/3825244 to order 



8UPER-10" ABCDEPGH X aKI-MIMO 

ABCDEFGHUKLMNOPORSTUVUXYZ 1. 



iDRS-rUVMXVZ 



EXECUTIVE LETTER QUALITY 

DAISY WHEEL PRINTER SALE ^379°° 



COMSTAR 13" 




COMSTAR 13" "DAISY WHEEL" POWER TYPE 
PRINTER is t/pewriter friendly. It uses a simple 
drop in cassette ribbon. Just turn on the COM- 
STAR 13" 'or Crip executive quality cor- 
respondence at 18 CPS with a daisy wheel that 
prints 96 power type flawless characters, bi- 
directional. Designed for personal and business 
applications. COMSTAR 13" carriage accepts 
paper from letter to legal size, continuous com- 
puter paper cr single sheets, you can set right 
and left margins, vertical and horizontal tabs. 
LIST PRICE '599" SALE PRICE ^379'"' 



computer printer 



O OLYMPIA "DAISY WHEEL" COMBINATION 

PRINTER/TYPEWRITER SALE ^489°^ 




O Olympia 



O Olympia 



THE IF uiympia computer printer 

ELECTRONIC TYPEWRITER is the ultimate for 
Home, Office, and Word Processing. You get the 
best Electronic Typewriter made and used by 
the world's la'gest corporations (better than IBM 
Selectric) plus a Superb Executive Cor- 
respondence Computer Printer!! (Two machines 
in one!) Just flick the switch for the option you 
want to use. The extra large carriage allows 
14%" printer paper width. It has cassette ribbon 
lift off correction. Baud rates, Jumper selectable 
75 through 19,200 (serial or parallel interface) 
LIST '/gg"" SALE 'ASg" 



(WORLD'S FINEST) 



• 15 DAY FREE TRIAL - 90 DAY FREE REPLACEMENT GUARANTEE 



I Add $17.50 for shipping and handling!! 



j Enclose Cashiers Check, Money Order or Personal Check. Allow 
I 14 days for delivery, 2 to 7 days for phone orders, 1 day express 
I mail! Canada orders must be in U.S. dollars. VISA — MASTER 
I CARD ACCEPTED. We ship C.O.D. 



E N T E R P F^ I Z E S '**^ "-O"^ °"'* CUSTOMERS) 

BOX 550. BARRINGTON, ILLINOIS 60010 
Phon* 312/382-5244 to order 



The Accurate Piintei 




by Richard Marmon 



Have you ever typed a piogram from a 
book or magazine into your Atari 
computer that used graphics characters 
or inverse characters? Have you been 
frustrated when you tried to list the 
program on your Epson (or Epson- 
compatible) printer only to have the 
printer go crazy? If you have the 
Graftrax or Graftrax-plus option for 
your printer, then Accu-Print will solve 
this problem for you - and give you 
some added desirable features as well. 
With Accu-Print in control of your 
printing, your Epson printer will 
faithfully reproduce each and every 
character that the Atari line of 
computers can generate on the screen 
with no exceptions. 

What Accu-Print Can Do 

Figure 1 shows a little nonsense listing 
using Atari graphics characters and 
inverse characters. If you type these 
statements into your computer (using 
the appropriate keystrokes to obtain 
the special characters as described in 
the Atari Basic manual) and then list 
them to your printer, you will obtain 
the results shown in Figures 2, 3, and 4 
printed on three sheets of paper. The 
printer will pretty much garble the 
listing and seem to go crazy with form 
feeds as it is printing. 

This is because there is an 
incompatibility between the ATASCII 
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codes used to represent the computer' s 
character set and the ASCII codes used 
to represent the printer's character set. 
Some ATASCII values representing 
inverse characters to the computer 
represent different Epson-style graphics 
characters to the printer. In fact, the 
special Atari graphics and inverse 
characters just aren't included in the 
Epson printable character set. And 
some ATASCn values are interpreted 
by the printer as special control 
characters. Hence, the printer forra 
feeds when you don't really want it to. 
This is quite a messy state of affairs! 

I wrote Accu-Print in order to get 
around these difficulties. It seemed to 
me that the printer's graphics 
capabilities could somehow be used to 
form the special characters. After much 
experimentation and some pain, I 
finally succeeded, and now I'd like tc 
share the result with you. When Accii- 
Print is controlling the printing, the 
program shown in Figure 1 will print on 
paper exactly as it's shown in the 
figure. As you can see, all Atari 
characters can be printed. 

Accu-Print System Description 

In its usual configuration, printing on 
the Atari computer is controlled by a 
routine within the Operating System 
ROM called the printer driver. Each 
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time a character is to be printed, either 
by a cartridge (such as BASIC or the 
Assembler-Editor) or by an application 
program (such as the Atari Program 
Text Editor, APX Forms, or a user- 
written one], the printer driver is 
executed and sends the ATASCII code 
for the character to the printer. The 
printer then responds to the code 
according to its internal character set, 
not the Atari's. Under the Accu-Print 
system, a new printer driver replaces 
the one contained in the OS ROM. 
Once loaded, the new printer driver 
controls all subsequent printing by any 
program. The new printer driver is 
contained in an AUTORUN.SYS file 
and is located automatically and 
attached to the Operating System 
during system startup. To use the 
system, all you have to do is make sure 
AUTORUN.SYS file is on your boot 
disk and then start and use the 
computer system normally. No 
differences will be noticeable until 
Atari graphics or inverse characters are 
printed. Then, the special characters 
will simply be reproduced on the 
printer, although the printing will slow 
down somewhat due to the use of the 
printer's graphic mode. 

There are basically two parts to the 
Accu-Print system. The first is the 
AUTORUN.SYS file which contains 
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the new printer driver. The second is 
the Customizer program which is a 
BASIC program that creates the 
AUTORUN.SYS file for you. It allows 
you to select typestyle and control 
character options, and it permits you a 
great deal of flexibility in using Accu- 
Print and your printer. Customization 
of the AUTORUN.SYS file will be 
explained in a later section. 
Getting Started 

Listing 1 shows the Customizer 
program. When executed, it will create 
the AUTORUN.SYS file you need to do 
the accurate printing described above. 
For now, let's just try it to see how it 
works. Type the program into your 
computer exactly as shown in the 
listing. Don't forget to save it on your 
disk drive! You might call it 
CUST.BAS. When you've got it right, 
put a disk in your drive that doesn't 
have an AUTORUN.SYS file on it and 
run the Customizer program. Type 1 
followed by a RETURN when you see 
the typestyle menu. Type N followed 
by a RETURN in response to the 
control character selection question. 
Finally, type D:AUTORUN.SYS 
followed by a RETURN in response to 
the file name question. The disk will 
now chug away, and in a few moments 
you'll see a question regarding creation 
of another file on the screen. Type N 
followed by a RETURN and the 
program will end. The Accu-Print 
printer driver is now embedded in the 
AUTORUN.SYS on your disk and is 
ready for your use. 

Now, turn your computer off and 
then on again. When the disk stops 
spinning, the new printer driver has 
become an integral part of your 
computer's operating system. To try it 
out, just type in the listing shown in 
Figure 1 and list it to your printer. If all 
is well, your printer will print out an 
exact copy of Figure 1. Don't be 
concerned that the printer slows down 
when it encounters the special 
characters. It happens because the 
printer automatically does a carriage 
return when it goes into dot graphics 
mode, which is used to print the 
graphics and inverse characters. 

With the system as it is now, you 
can print all of your program listings 
that contain graphics characters 
accurately on your printer. Just be sure 
to start your system using the disk 
containing the Accu-Print 
AUTORUN.SYS file. But since Accu- 
Print can do even more, let's get a little 
deeper into the system. 
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Figure 1 



10 


REM 


20 


REM 


30 


REM 


40 


REM 


50 


REM 


60 


REM 


70 


REM 


B« 


REM 


90 


REM 


100 REM 


110 REM 


120 REM 


13i 


=J REM 


140 REM 


150 REM 



CHARACTER SET PRINT TEST 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 

0123456789 

BBBSSsaaas 
^Bii^sL'flaoaBsiaBeiiaiiiaERBfioiQaB 

abcde-f gtii jkl mnopqrstuvwxyz 

E!i3t3SSDSlfflaii3O2:0iS!3!il.SSGEECa?!a 
ABCDEFGHIJKLMNOPORSTUVWXYZ; , . 

^ IHi/\i.k " "-. *r--f-t.| T-«-i •■♦♦♦ 

i;iu:mi'i)?rriLJia>icn:::D-in;:ii:Qca 

AS ON ATARI MANUAL 



Figure 2 



10 REM CHARACTER SET PRINT TEST 

20 REM ABCDEFGHIJKLMNOPQRSTUVWXYZ 

30 REM ■ »■» "T ". — ■», I. T.M 

40 REM feTlW4^6V^/***'^ =* 

50 REM ■ ^liXy- 

60 REM ^ h%*/.'' 5)' " >-==_ ! +« \ ; : , C . 3 /"? 

70 REM 



80 REM abcde-f ghi jkl mnopqr5tuvw>;yz 
90 REM 

100 REM ABCDEFGHIJKLMNOPQRSTUVWXYZ;, 
110 REM 



Figure 3 



120 REM 



Figure 4 



130 REM AS ON ATARI MANUAL 
140 REMJ 
150 REM 
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Listing 1 



ICFC 



ACCU-PRINT 

THIS ROUTINE RUNS AS AN AUTD RUN ROUTINE 

IT CAUSES THE 0PERATIN6 SYSTEM TO USE THE 

NEH DEVICE MRITE PORTION DF THE PRINTER HANDLER. 

ORG tlCFC 



im 


ZINIT 


EQU $10 




mi 


ZCHAR 


EQU HE 




001F 


ZSAVE 


EQU tlF 




02F4 


'CBASE 


ECU $02F4 




1D17 


NPTAB 


ECU $1D17 




ICFC AD IF D0 


BEGIN 


LOA tO01F 


CHECK FOR OPTION KEY 


ICFF 29 04 




AND H04 




1001 F0 13 




BEQ FINIS 






; IF = 


DON'T USE NEM PRINTER ROUTINE 


1D03 A9 17 




LOA tNPTAB 


REVECTOR PRINTER 


1005 80 16 03 




STA $031B 




1006 A9 10 




LDA /NPTAB 




1O0A 8D IC 03 




STA $031C 




1O0D EE ES 02 




INC $2ES 




1010 EE E8 02 




INC $2E8 




1013 EE E8 02 




INC «2Ee 




101& &0 


FINIS 


RTS 


; RETURN 




; SUBROUTINE VECTORS 




1D17 9E EE 




ADR ♦EE9E 


1 OPEN 


1D19 DB EE 




ADR »EEDB 


CLOSE 


IDIB 90 EE 




ADR $EE9D 


READ 


1010 B7 10 




ADR P«RIT-1 


NEH WRITE 


IDIF 80 EE 




AOR $EE80 


STATUS 


1021 90 EE 




ADR $EE9D 


SPECIAL 


1D23 4C 




BYT $4C 


JUHP VECTOR TO 


1D24 78 EE 




ADR tEE78 


DEVICE INIT ROUTINE 




; NEH DEVICE MRITE ROUTINE 




\m 00 


'dh 


BYT 


DOUBLE HIDE 


1D27 00 


CHCNT 


BYT 


LINE CHAR COUNT 


1026 01 


CHINC 


BYT 1 


INCREMENT FOR GRAPHICS 


1D29 51 


LEN 


BYT 81 


LINE OVERFLOW LENGTH 


1D2A 00 


FT 


BYT 


FIRST TIME INDICATOR 


lD2fi 00 


IS 


BYT 


PRINTER INIT STRING 


1D2C 00 00 00 




BYT 0,0,0,0,0,0,1 


J,0 



NOTE: DUE TO SPACE CONSTRAINTS HE 00 NOT LIST OUT 

EVERY BYTE SEPARATELY, INSTEAD HE COMBINE THEM, 

HE USE THIS CONVENTION PARTICULARLY HHEN LISTING TEH 



; SPECIAL CONTROL CHAR ALLOW 
0,0,0,0,0,0,0,0,0,0,0,0 

0) 09 0)0)0)090)0)0)0)0)0 
0)0)0)0)0)0)0)0)0)0)0)0 



; GRAPHIC INDICATOR 

; CURRENT COLUMN OF CHAR 

; FOUND 155 (CR) INDICATOR 



1D34 00 


AS 


BYT 


1D35 00 00 00 




OBY 0,0,0, 


1053 00 00 00 




OBY 0,0,0, 


1071 00 00 00 




DBY 0,0,0, 


1D8F 00 00 00 




DBY 0,0,0, 


IDAD 00 00 00 




DBY 0,0,0, 


1DB5 00 


GR 


BYT 


IDBi 00 


COLCT 


BYT 


1DB7 00 


FRET 


BYT 



The OPTION Key 

When the AUTORUN.SYS file 
containing the new printer driver is on 
one of your boot disks, it will 
automatically control the printing 
whenever you start your system using 
that disk. However, there may be times 
when you don't want the Accu-Print 
system to handle the printing. Instead 
of using another disk that doesn't 
contain Accu-Print' s AUTORUN.SYS 
file, simply press the OPTION key and 
turn your computer on. Keep the 
OPTION key depressed until the disk 
drive stops and the startup operation is 
complete. Now printing will be 
controlled by the normal Operating 
System printer driver. To use Accu- 
Print again, just turn your computer off 
and restart your system without 
depressing the OPTION key. 



Compatibility 
Programs 



With Other 
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The Accu-Print printer driver uses 768 
bytes of memory, which is subtracted 
from the amount of memory available 
for application programs. The 
AUTORUN.SYS file, upon booting, 
modifies the LOMEM pointer so that 
application programs may be loaded 
and run in conjunction with the printer 
driver without overwriting it. 

Since Accu-Print is designed to 
coexist and run with other programs, it 
is compatible with language cartridges 
such as BASIC, PILOT and Assembler- 
Editor. It is also compatible with 
standalone programs such as the Atari 
Program Text Editor and APX Forms. It 
is not compatible with any program 
that has its own AUTORUN.SYS file or 
that directly calls the Operating 
System's printer driver routine. In 
short, Accu-Print is compatible with 
any program or cartridge that uses or 
supports normal Atari Operating 
System printing conventions. 

Control Characters 

The Epson (and Epson-compatible) 
printers, without software support like 
Accu-Print, will not normally print 
Atari graphics or inverse characters. 
The reason is that while the Atari 
computer will display graphics 
symbols in response to certain numeric 
values, the Epson printers will consider 
those same values as control codes and 
respond accordingly. For example, the 
BASIC statement PRINT CHR$(12) 
will cause a graphics symbol to appear 
on the screen. However, the statement 
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LPRINT CHR$(12) will cause the 








Epson printers to form feed. 


1DB8 B5 IF PWRIT 


STA ZSAVE ; 


STORE ATA5CII CHAR 


When the Accu-Print printer driver 


IDBA 2i lA EF 


JSR lEFlA 




as created above is controlling the 


IDBD M 91 


LDY 10 ; 


INIT COLUHN COUNT 


printing, the only control character the 


IDBF 8C B5 ID 


STY 6R ) 


AND INDICATORS 


Epson printers will respond to is the 


1DC2 8C ib ID 


STY COLCT 




carriage return. All other control 


IDCS 8C B7 ID 


STY FRET 




characters will cause the printers to 


IDCB CC 2A ID 


CPY FT i 


FIRST TIHE THRU ? 


print the same graphics characters that 


IDCB D0 13 


BNE SOON ; 


BRANCH IF NOT 


would appear on the screen. For 


IDCD EE 2A ID 


INC FT i 


BYPASS AFTER THIS 


program listings and other uses, this is 


1DD0 B9 2B ID LDP 


LDA IS,Y ; 


CHECK FOR RORE 


precisely what you want. However, 


1DD3 C9 M 


CUP 10 1 


PRINTER INIT CHARS 


there are other applications for which 


1DD5 H 09 


BEO GOON ; 


BRANCH IF NO HORE 


you would want your Epson printer to 


1DD7 A6 ID 


LDJ ZINir ; 


INIT CHAR IN PRINTER 


respond normally to certain control 


1DD9 20 CF IE 


m STCHR 




characters while responding to others 


IDDC CB 


INY ; 


POINT TO NEJT INIT 


by printing the Atari graphics or inverse 


IDDD 4C D0 ID 


JHP LOP \ 


CHAR AND GET IT 


symbols. For example, the Assembler- 


1DE0 AS IF GOON 


LDA ZSAVE 




Editor cartridge generates form feed 


1DE2 20 0A IF 


JSR CHRCK ; 


CHECK FOR NON-CONPATIBLE 


control characters when printing 


1DE5 C0 01 


CPY 11 ! 


CHARACTER 


assembly listings. But you might want 


1DE7 F0 03 . 


BEO INCHP ; 


BRANCH IF INCOMPATIBLE 


to put inverse characters in comment 


1DE9 4C BC IE 


JHP CNPAT ! 


CORPATIBLE 


lines for emphasis. Therefore, you'd 


IDEC EE B5 ID INCNP 


INC 6R ; 


SET GRAPHIC FLAG 


like to use the Accu-Print printer 


IDEF 18 


CLC 




driver, but not have it treat form feeds 


iVLl iD 

1DF0 AD 28 ID 


LDA CHINC ; 


INCREHENT LINE 


as Atari graphics symbols. The 


1DF3 6D 27 ID 


ADC CHCNT ; 


CHAR COUNT 


Customizer program allows you to 


1DF6 8D 27 ID 


STA CHCNT 




customize the Accu-Print printer driver 
for this type of use. 


1DF9 CD 29 ID 


CHP LEN ; 


CHECK FOR LINE OVERFLON 


IDFC D0 0D 


BNE CTRL ; 


BRANCH IF ND OVERFLON 


The Customizer Program 


IDFE A9 9B 


LDA 1155 ; 


ELSE, SEND CARRIAGE RETURN 




1E00 A6 ID 


LDX ZINIT 




This program (Listing 1) creates an 


1E02 20 CF IE 


JSR STCHft 




Accu-Print printer driver that has been 


1E0S AD 28 ID 


LDA CHINC ; 


CLEAR CHAR COUNT 


customized for your use. As an option. 


1E08 BD 27 ID 


STA CHCNT 




you may select among any of 24 


1E0B A9 IB CTRL 


LDA tllB ; 


PUT GRAPHICS CONTROL 


typestyles allowed by the Epson 


1E0D A6 ID 


m ZINIT ; 


CHARS INTO PRINTER BUFFER 


printers with Graftrax. All text except 


1E0F 20 CF IE 


JSR STCHR ; 


STORE CHAR 


graphics or inverse characters will be 


1E12 A9 4C 


LDA 176 




printed in the typestyle you select. 


1E14 AC 26 ID 


LDY DH ; 


CHECK FOR DOUBLE NIDE 


Note that you may not change 


1E17 C0 00 


CPY 10 




typestyles while you are printing with 


1E19 F0 02 


BEO LD76 , 


BRANCH IF NOT 


the Accu-Print driver unless you select 


lElB A9 4B 


LDA 175 




a control code option. 


lElD A6 ID LD76 


LDJ ZINIT 




A second option is the specification 


lElF 20 CF IE 


JSR STCHR 




of allowed control characters. You may 


1E22 A9 08 


LDA IB 




specify up to 128 control characters 


1E24 A6 ID 


LDJ ZINI" 




which your Epson printer will respond 


1E26 20 CF IE 


JSR STCHR 




to normally. That is, the Atari graphics 


1E29 A9 00 


LDA 10 




or inverse characters conesponding to 


1E2B A6 ID 


LDJ ZINIT 




these symbols will not be printed in 


1E2D 20 CF IE 


JSR STCHR 




response to these control codes. 


1E30 AC B6 ID BACK 


LDY COLCr 


COLUHN COUNT IN Y 


Instead, the printer will respond as 


1E33 A5 IF 


LDA ZSAVi: 


ATASCII CODE IN A 


specified in its instruction manual. 


1E35 20 48 IF 


JSR SETCL 


GET COLUHN VALUD 


Running the Customizer program is 


1E3B 8A 


TJA 


PUT INTO A 


simple. With the BASIC language 


1E39 C9 9B 


CHP 1155 


155 IS ATASCII EOL 


cartridge inserted, just load and run 
CUST.BAS. After initialization is 


1E3B D0 05 
1E3D EE B7 ID 


BNE PUTC 
INC FRET 


SET FOUND 155 FLAG 


completed, you will see a menu of 


1E40 A9 90 


LDA 1144 


SEND A 144 INSTEAD 


typestyle choices. Just type the number 
corresponding to the typestyle you 
want followed by the RETURN key. 
You will then be asked if you want to 


1E42 A& ID PUTC 
1E44 EE ib ID 
1E47 20 CF IE 
1E4A A9 08 
1E4C CD ib ID 
1ED9 C9 9B 


LDJ ZINIT 
INC COLCT 
JSR STCHR 
LDA to 
CHP COLCT 
CHP l»9B 


INDEJ INTO PRINTER BUFFER 

SET CLOUHN COUNT 

PUT COLUHN VALUE IN PB 


allow control characters. If you do, type 
Y and RETURN in response to the 




question: 
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1E4F 00 DF 




BNE BACK 


- BRANCH IF NOT LAST COLUHN 


ANY CONTROL CHARACTERS TO 


1E51 A9 a 




LDA 10 


i IF FRET SET 


ALLOW? 


1E53 CD B7 ID 




CNP FRET 


NEED TO REPEAT CHAR 


Then type the decimal value of the 


1E5& H &1 




BEfl ORD 




control character you wish your Epson 


lESe BD U ID 




STA COLCT 


ZERO COLCT 


printer to respond to normally followed 


1E5B AC 2B IS 




LDY CHINC 




by the RETURN key. You will then be 


1E5E A9 08 


BSl 


LDA 18 


PUT BACKSPACE IN BUFFER 


oclrpn • 


1E60 M ID 




LDK ZINIT 




aaj\.cu.. 


1E62 20 CF IE 




JSR STCHR 




ANY MORE? 


1E&5 AC 26 ID 




LDY DH 


; CHECK FOR DOUBLE MIDE 


Respond with a Y and RETURN to 


1E&8 C0 00 




CPY 10 




specify more control characters, and 


1E6A F0 07 




BES BS2 


) BRANCH IF NOT 


continue in this way until you have 


lE&C A9 08 




LDA IB 


PUT IN ANOTHER 


typed all the control characters you 


lE&E M ID 




m ZINIT 


; BACKSPACE 


wish to allow. You can specify up to 


1E70 20 CF IE 




JSR STCHR 




128 control characters in this manner. 


1E73 A9 IB 


BS2 


LDA IflB 


i PUT GRAPHICS CONTROL 


You will then be asked for a file 


1£75 A6 ID 




LDX ZINIT 


CHAR IN BUFFER 


name. This is the name of the file your 


JE77 20 CF IE 




JSR STCHR 




customized printer driver will be 


1E7A A9 4C 




LDA 176 




written to. You may give any legal file 


1E7C AC 26 ID 




LDY DM 




name and must give the complete 


1E7F C0 00 




CPY 10 




specifier, including the disk drive. For 


lEBl F0 02 




BEB BS3 


; BRANCH IF NOT DOUBLE MIDE 


example, this could be 


1E83 A9 4B 




LDA 175 




Dl:SPECIAL.OBJ. Follow the file 


1EB5 A6 ID 


BS3 


LDX ZINIT 




specification with the RETURN key. 


1E87 20 CF IE 




JSR STCHR 




The file will then be written to the 


1E8A A9 08 




LDA 18 




disk. Next you will be asked if you 


lEBC A6 10 




LDK ZINIT 




want to create another printer driver 


1E8E 20 CF IE 




JSR STCHR 




file. Type Y and RETURN if you want 


1E91 A9 00 




LDA 10 




to create another customized printer 


1E93 A6 ID 




m ZINIT 




driver, or N and RETURN if you want 


1E95 20 CF IE 




JSR STCHR 




to exit the program. 


lE9d AC B6 10 


BKl 


LDY CDLCT 


CDLUNN COUNT IN Y 


To use your new printer driver, just 


1E9B A5 IF 




LDA ZSAVE 


ATASCII IN A 


copy the file you created to the 


1E9D 20 48 IF 




JSR GETCL 


COLUNN VALUE 


AUTORUN.SYS file and reboot your 


1EA0 BA 




TKA 


INTO A 


system with the disk containing it. You 


lEAl A2 00 




LOX 10 




should also turn your printer off and 


1EA3 C9 9B 




CNP 1155 


TEST FOR 155 


then on again before you use a new 


1EA5 00 02 




BNE OK 


BRANCH IF NOT 155 


printer driver so it will be cleared of any 


iEA7 A2 0B 




LDX 111 


REPLACE 155 HITH 11 


previous settings. 


1EA9 BA 


OK 


TXA 


PUT CORRECT VALUE IN A 


You will probably want to create 


lEAA A6 ID 




LDX ZINIT 


INDEX INTO PB IN X 


several Accu-Print printer drivers for 


lEAC EE B6 ID 




INC COLCT 


SET COLUMN COUNT 


different uses. For example, you might 


lEAF 20 CF IE 




JSR STCHR 


PUT COLUMN VALUE IN PB 


have one using normal Pica type and no 


1EB2 A9 06 




LDA 18 




control characters allowed for BASIC 


1EB4 CD 66 ID 




CNP COLCT 




program listings, another using Pica 


1EB7 D0 DF 




BNE BKl 


BRANCH IF NOT LAST C0LUI1N 


type and allowing form feeds for 


1EB9 A0 01 


ORD 


LDY If01 




assembly listings using the Assembler- 


lEBB 60 




RTS 


• RETURN 


Editor cartridge, and perhaps another 


lEBC AD 27 ID 
lEBF 60 28 ID 


CNPAT 


LDA CHCNT 
AOC CHINC 


INC. CHAR COUNT 


using Emphasized Pica type and 
allowing several control characters for 


1EC2 8D 27 10 




STA CHCNT 




word processing applications. 


1EC5 AS IF 




LDA ZSAVE 




Additional Details 


1EC7 A6 ID 




LDX ZINIT 






1EC9 20 CF IE 




JSR STCHR 


; STORE CHAR IN PB 


Pressing the RESET key will make the 


lECC 4C B9 IE 




JHP ORO 


AND EXIT 


Accu-Print printer driver inactive. You 
will have to restart your Atari com- 




STORE CHAR IN A INTO PB i 


^^ OFFSET X 


puter system to use Accu-Print again. 




PRINT 


IF BUFFER FULL OR 


CR. 


Accu-Print uses the character 
definitions stored inside your Atari 


lECF 9D C0 03 


STCHR 


STA $03C0,X 


STORE CHAR 


computer to generate the graphics and 


1ED2 E8 




INX 




inverse characters on your printer. In 


1ED3 E4 IE 




CPX ZCHAR 




fact, it uses the CHBAS Operating 


1ED5 F0 16 




BEB LAST ; I 


JRANCH IF LAST CHAR FOR PB 


System vector to find the character set 


1ED7 86 ID 




STX ZINIT \ L 


POATE POINTERS 


definitions in memory. Thus, if you 
use the Accu-Print printer driver with 
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an application program that uses a 










redefined character set, the redefined 


1ED6 F0 01 




BES CR 


i BRANCH IF CHAR IS EDL 


characters will be printed on your 


lEDD hi 


NEXT 


RTS 


; RETURN 


printer. This is useful for many special 


lEDE A9 20 


CR 


LDA 1120 




applications, and can be the basis for 


1EE0 A0 00 




LDYI0 




special graphics character screen dump 


1EE2 BC 27 ID 




STY CHCNT 


; CLEAR CHAR COUNT FDR NEH LIN 


programs. 


1EE5 9D C0 03 


Nn 


STA t03C0,l( 


; PAD BUFFER KITH 




1EE8 ES 




INX 


; BLANKS 


How Accu-Piint Works 


1EE9 E4 IE 
1EE6 D0 F8 




CPU ZCHAR 
BNE NXT 




Listing 2 is an assembly language 


lEED A9 01 


LAST 


LDA 1(00 


; SEND BUFFER TO PRINTER 


listing of the Accu-Print printer driver. 


lEEF S5 ID 




STA ZINIT 




I've included it for those of you who 


lEFl AE 7F EE 




LDX «EE7F 




might like to understand how the 


1EF4 AC S0 EE 




LDY tEE60 




printer driver works. Additionally, you 


1EF7 20 E6 EE 




JSR IEEE6 




might wish to modify it for your own 


lEFA 20 59 E4 




JSR tE459 




special purposes. I've tried to liberally 


lEFD AD 26 ID 




LDA DH 


; CHECK DOUBLE HIDE 


comment the listing to make it a little 


1F00 C9 00 




CMP 10 




easier to understand. 


1F02 F0 05 




BEQ OUT 


) BRANCH IF NOT 


The basic idea behind Accu-Print is 


1F04 A9 00 




LDA 10 


FORCT 


to replace the normal Operating 


1F0& 8D 2A ID 




STA FT 


; INITIALIZATION 


System printer driver with one of my 


1F09 60 


OUT 


RTS 


RETURN 


own design. This is made possible by 










two features of the Atari system. The 




CHECK CHAR FOR COHPATIBILITY WITH 


first is the capability to load and ex- 




PRINTER CHAR SET. RETURN Y»0 IF COMPATIBLE, 


ecute a program stored in an 




Y=l ] 


F NOT. ATASCII VALUES INCOMPATIBLE: 


AUTORUN.SYS file at system startup 




0-31,96,123-154,156-755 




after the system is initialized, but 










before the user is given control of the 


1F0A 3S 


CHRCK 


SEC 




system. The second is the fact that the 


1F0B C9 9C 




CMP 1156 




Operating System uses RAM to store 


1F0D 60 27 




BCS SONE 


, >155 - NEED GRAPHICS 


pointers (or vectors) to input/output 


1F0F C9 9B 




CMP 1155 




control routines. Combining these 


IFll F0 20 




BEB SZERO 


; = 155 -DON'T NEED GRAPHICS 


features, the system allows us to ex- 


1F13 A0 00 




LDY 10 




ecute a program (continued in 


1F15 BE 34 ID 


ANKT 


LDX AS,Y 


i CHECK FOR SPECIAL 


AUTORUN.sys) during system startup 


IFIS E0 00 




CPX 10 


ALLOW CHARACTERS 


that changes the print pointer from the 


IFIA F0 09 




BE8 NMOR 


; BRANCH IF NO MORE 


standard printer driver to our own. 


IFIC D9 34 ID 




CMP As,y 


CHECK CHAR 


Labels BEGIN through FINIS show 


IFIF F0 12 




BEB SZERO 


; ALLOM IT IF EQUAL 


these operations. At system startup, 


1F21 CS 




I NY 


POINT TO NEXT ALLOW CHAR 


the entire AUTORUN.SYS file is load- 


1F22 4C 15 IF 




JHP ANXT 


; AND CHECK I 


ed into memory and execution begin at 


1F25 38 


NHDR 


SEC 




BEGIN. If the OPTION key is pressed. 


1F26 C9 7B 




CMP 1123 




the program simply exits and nothing 


1F2S B0 0C 




BCS SONE 


>122 - NEED GRAPHICS 


happens. Otherwise, the address of our 


1F2A 38 




SEC 




new printer device table (located at 


1F2B C9 20 




CHP 132 




NPTAB) is stored in locations $3 IB and 


1F2D 90 07 




BCC SONE 


; <32 - NEED GRAPHICS 


$31C, which contain the pointer to the 


1F2F C9 60 




CMP 196 




Operating System's standard printer 


1F31 F0 03 




BEQ SONE 


, M6 - NEED GRAPHICS 


device table. Next, the LOMEM 


1F33 A0 00 


SZERO 


LDY 10 


DON'T NEED GRAPHICS 


pointer is incremented by 768 to make 


1F35 60 




RTS 




sure the following code isn't overwrit- 


1F36 A0 01 


SONE 


LDY 11 


NEED GRAPHICS 


ten by an application. The program 


1F38 60 




RTS 




then exits and the user is given control 










of the system. Only a few instructions 


I 


COHPUTE COLUMN VALUE TO CONSTRUCT CHAR | 


are executed at system startup, but the 




A« / 


U ASCI I VALUE OF CHAR 


effect is great! All printing will now be 




Y ' COLUMN VALUE TO COMPUTE | 


vectored through our new printer 




X«( 


:OLUHN VALUE ON EXIT 




driver. The data for the driver starts at 


, 








DW and the executable code starts at 


1F39 00 


ANS 


BYT 


COMPUTER COLUMN VALUE 


PWRIT. 


1F3A 00 


ATVAL 


BYT 


; ATASCII CHAR VALUE 


Chapter 8 of the De Re Atari gives 


1F3B 00 


CVAL 


BYT 


INTERNAL CHAR VALUE 


more information about Operating 


1F3C 00 


CLNUK 


BYT 


; COLUMN NUMBER 


System vectors and device tables if 


1F3D 00 


INFL6 


BYT 


INVERSE CHAR FLAG 


you're interested in more detail about 











No. 71 • April/May 1984 



MICRO 



25 



1F3E iB U 


CHBAS 


1F40 80 40 20 

7 


NASKS 



DBY ; CHAR SET BASE ADDRESS 

BYT 128,64,32,16,8,4,2,1 ; MASKS FOR COLUMNS TO 



I SEE 'NOTE' IN FIRST PA6E OF LISTING 



1F48 8D 3A IF 


6ETCL 


STA ATVAL 


; SAVE ATASCII VALUE 


1F4B 8C 3C IF 




STY CLNUH 


; SAVE COLUHN NUHBER 


1F4E A0 00 




LDY 10 


1 INITIALIZE 


1F50 8C 39 IF 




STY ANS 




1F53 38 




SEC 




1F54 C9 80 




CHP 1128 




IFSi 90 0B 




BCC NCHAR 


1 BRANCH IF NOT INVERSE 


1F58 AD 3A IF 




LDA ATVAL 




1F5B 38 




SEC 




1F5C E9 80 




SBC 1128 


; CONVERT TD NON-INVERSE 


1F5E 8D 3A IF 




STA ATVAL 




IFil A0 01 




LDY 11 




1F63 8C 3D IF 


NCHAR 


STY INFL6 


; SET INVERSE FLAG 


1F66 AC F4 02 




LDY CBASE 


; 6ET CHAR SET BASE 


1F69 8D 3F IF 




STA CHBAS+1 


; AND SAVE IT 


1F6C AD 3A IF 




LDA ATVAL 


1 CONVERT ATVAL TO 


1F6F 38 




SEC 




1F70 C9 60 




CHP H60 


; INTERNAL CODE 


1F72 90 04 




BCC L60 


; BRANCH IF <«60 


1F74 4C 89 IF 




JHP CSTOR 


; ELSE, CONTINUE 


1F77 38 




SEC 




1F78 C9 40 


L60 


CHP H40 




1F7A 90 06 




BCQ L40 


; BRANCH IF <«40 


1F7C 38 


620 


SEC 




1F7D E9 20 




SBC H20 




1F7F 4C 89 IF 




JHP CSTDR 




1F82 38 


L40 


SEC 




1F83 C9 20 




CHP H20 




1F85 60 F5 




BCS 620 


i BRANCH IF >=$20 


1F87 69 40 




ADC i$40 




1FB9 8D 3B IF 


CSTOR 


STA CVAL 


; STORE INTERNAL VALUE 


1F8C AA 




TA)( 


; CDHPUTE ADDRESS OF CHAR 


1F8D A9 00 




LDA 10 


; DEFINITION. 


1F8F E0 00 


LOOP 


CPU 10 




1F91 F0 0E 




BED CHPCL 


; NO NORE ADJUSTMENT NECESSARY 


1F93 18 




CLC 




1F94 69 08 




ADC 18 




1F96 CA 




DEK 


; DECR. INTERNAL VALUE 


1F97 90 F6 




BCC LOOP 


i SEE IF OFFSET = 256 


1F99 EE 3F IF 




INC CHBAS+1 


; BUHP HI6H 


1F9C A9 00 




LDA 10 




1F9E 4C 8F IF 




JHP LOOP 




IFAI 80 3E IF 


CHPCL 


STA CHBAS 


; STORE LOW BYTE 


1FA4 80 B6 IF 




STA HOD HI 




1FA7 AD 3F IF 




LDA CHBAS+1 




IFAA 8D B7 IF 




STA HODl +2 




IFAD A0 00 




LDY 10 


5 CONTROLS LOOP 


IFAF AE 3C IF 




LDK CLNUH 


; INDEK TD HASKS 


1FB2 BD 40 IF 


LOOPl 


LDA HASKS.JI 


; 6ET COLUHN HASK 


1FB5 39 3E IF 


HODl 


AND CHBAS, Y 


; HODIFIED - HILL POINT TD 


1FB8 C9 00 




CHP 10 


; CHAR. DEFINITION 


IFBA F0 0A 




BEfi CHECK 


5 BRANCH IF COLUHN BIT NOT SET 


IFBC AD 39 IF 




LDA ANS 


; ELSE, UPDATE CDLUHN VALUE 


IFBF 18 




CLC 




1FC0 79 40 IF 




ADC HASKS.Y 


1 ADD VALUE TO AND 


1FC3 8D 39 IF 




STA ANS 




1FC6 C8 


CHECK 


I NY 




1FC7 C0 08 




CPY 18 
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that area. To set the stage for 
understanding the printer driver code 
itself, let's notice that when a character 
is to be printed, its ATASCII code will 
be placed in the A-register and the code 
beginning at PWRIT will be executed. 

The driver first checks to see if this 
is the very first time the printer driver 
is being executed. If it is, then the 
characters contained in the data string 
starting at IS will be sent to the printer 
to initialize it. The particular character 
string stored here is a function of the 
typestyle selected when you ran the 
Customizer program. The driver then 
checks to see if the character to be 
printed is a graphics or inverse 
character. The subroutine at CHRCK is 
used for this. If it is not a special 
character, then subsequent code is 
bypassed and the driver operates 
exactly like the standard one. 

If a special character is to be 
printed, then some special processing 
takes place. Each special character is 
printed in bit graphics mode. This 
means that data values corresponding 
to the individual 8-dot columns of the 
printed characters have to be sent to 
the printer in addition to control 
characters putting the printer into and 
out of graphics mode. This accounts for 
the slowdown while printing these 
characters. For each special character 
printed, 12 data characters have to be 
sent. In addition, special handling has 
to be given if a column data value 
happens to be 155. The Atari system 
will recognize this value as a carriage 
return and send a line feed character 
after it. Since we really want this value 
to be printed as a single 8-dot column, 
the automatic insertion of additional 
data is unacceptable. So if this value 
occurs (as it does with an inverse A) the 
driver breaks it apart, prints part of the 
column, backspaces the printer, and 
prints the second part. At any rate, the 
code between INCMP and CMP AT is 
devoted to sending data to the printer 
that causes it to print the 8-dot 
columns that form the graphics or 
inverse character being printed. After 
this data is sent, the printer is taken 
out of graphics mode and the printer 
driver is exited. 

Two subroutines worthy of note are 
CHRCK and GETCL CHRCK 

determines when a character needs 
special handling. It does this by 
checking the character's ATASCII code 
with the codes of the graphics and 
inverse characters. Also, it checks the 
character's code against the list of legal 
control codes (if any) you specified 
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while running the Customizer 
program. The character string AS 
contains those control codes. So it is 
this routine which allows for passing 
certain control characters intact to the 
printer. 

GETCL is the real workhorse of the 
printer driver. It accesses the internal 
character definitions and computes the 
data values to send to the printer so it 
can reconstruct the characters precisely 
as the Atari defines them. The routine 
is executed 8 times for each special 
character, once for each 8-dot column. 
The algorithm used is interesting, since 
it has to translate between the row-by- 
row internal character set definitions 
and the column-by-column data 
required by the printer. You can also 
see why Accu-Print works with custom 
character sets. It uses the standard 
character set vector to find the 
character definitions. Custom 
character sets use this vector too! My 
technique is probably not the most 
sophisticated possible. An interesting 
exercise would be to make it shorter 
and more efficient. I have a feeling that 
one of you whizzes out there can write 
this subroutine using one quarter of the 
code I did. Any takers? 

Well, I hope this explanation of how 
the code works will help you 
understand some of the subtleties of 
the Atari Operating System and of 
assembly language. I highly 
recommend De Re Atari and the 
Technical Reference Notes for more in- 
depth treatments of the techniques 
used. 

A Concluding Note 

I've found the Accu-Print system to be 
very useful in my work. I can now feel 
free to use graphics strings in my 
programs at will, particularly to 
represent assembly language routines 
where it saves me a lot of typing and 
leads to faster execution times for 
initialization. I don't get gibberish on 
my printer anymore, and I find that 
most programs work with Accu-Print 
easily. I hope you find the system 
helpful to you as well. 



1FC9 00 E7 


BNE LDDPl 


; BRANCH IF NOT DONE 


IFCB AE 3D IF 


LDX INFL6 


; HANDLE INVERSE 


IFCE i» 01 


CPU *1 




1FO0 M 08 


BNE FIN 


; BRANCH IF NOT INVERSE 


1FD2 A9 FF 


LDA 1255 


i ELSE, FLIP BITS 


1FD4 4D 39 IF 


EDR ANS 




1FD7 8D 39 IF 


STA ANS 




IFDA AD 3A IF FIH 


LDA ATVAL 


; LOAD RESS FDR EH IT 


IFDD AC 3C IF 


LDY CLNUH 




1FE0 AE 39 IF 


LDX ANS 




1FE3 bi 


RTS 




1FE4 


END 





Listing 2 



1 REH ACCU-PRINT CUSTOM I ZER 

4 REH 

10 BRAPHICS 0:POSITION 15,8:? "ACCU-PRINT" 

20 POSITION 15,10:? 'CUSTOHHER" 

40 POSITION 5,i5:? " (REVERSE 0!i|}PLEASE HAIT FOR 

INITIALnATION{REVERSE OFF}" 

50 REH PUT ACCU-PRINT IN STRING 

i0 DIH R$! 744): RESTORE 900 

70 FOR 1=1 TO 744:READ A:R$(LEmR$)+l)=CHR$iA):NE)iT I 

80 GRAPHICS 0:POSITION 15,0:? "ACCU-PRINT" 

90 POSITION 13,1:? "TYPESTYLE ilENU" 

100 POSITION 2,3:7 

110 POSITION 2,4:? ' 

120 POSITION 2,5:? 

130 POSITION 2,6:? ' 

140 POSITION 2,7:? 

150 POSITION 2,8:? ' 

li0 POSITION 2,9:? 

170 POSITION 2,10:? 

180 POSITION 2,11:? 

190 POSITION 2,12:? 

200 POSITION 2,13:? 

210 POSITION 2,14:? 

220 POSITION 20,3:? 

230 POSITION 20,4:? 

240 POSITION 20,5:? 

250 POSITION 20, i:? 

2i0 POSITION 20,7:? "17 EKP PICA" 

270 POSITION 20,8:? "18 EXP ITiiL' 

280 POSITION 20,9:? '19 E.XP PICA EMPH" 

290 POSITION 20,10:? "20 EXP ITAL EHPH" 

300 POSITION 20,11:? "21 EXP PICA DS" 

310 POSITION 20,12:? '22 E.XP ITAL DS" 

320 POSITION 20,13:? "23 EXP PICA EHPH DS"; 

330 POSITION 20,14:? "24 EXP ITAL EMPH DS"; 

340 POSITION 2,li:? "YOUR CHOICE"; 

350 INPUT CH 

3i0 ON CH 60T0 400,405.410,415,420.425,430.435.440.445, 

450, 455, 460,4i5,470, 475,480,485,490,495,500,505,510, 515 

370 PRINT CHR$(253);:6OT0 340 

400 RESTORE 401: GOTO m 

401 DATA 255 

405 RESTORE 40&:6OTO &00 

406 DATA 27,52,255 

410 RESTORE 411: GOTO 600 

411 DATA 27,69,255 

415 RESTORE 416:S0T0 600 

416 DATA 27,52,27,69,255 
420 RESTORE 421: GOTO 600 



1 PICA" 


2 ITAL' 


3 PICA EHPH" 


4 ITAL EHPH" 


5 PICA DS" 


6 ITAL DS' 


7 PICA EHPH DS" 


" 8 ITAL EHPH DS" 


" 9 COND PICA" 


"10 COND ITAL" 


"11 COND PICA DS" 


"12 COND ITAL DS" 


'13 COND-EXP PICA" 


"14 C0ND-E:!P ITAL" 


"15 COND-EXP PICA DS"; 


"16 COND-E(P ITAL DS"j 
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421 DATA 27,71,255 

425 RESTORE 426!60T0 m 

42i DATA 27,52,27,71,255 

430 RESTORE 431: GOTO hid 

431 DATA 27,69,27,71,255 
435 RESTORE 436:B0T0 m 

43i DATA 27,52,27,69,27,71,255 
44a RESTORE 441:60T0 548 
441 DATA 27,a»,255 

445 RESTORE 446: GOTO 54* 

446 DATA 27. 8«. 27, 52.255 

450 RESTORE 451:60T0 540 

451 DATA 27,80,27,71,255 

455 RESTORE 456:60T0 540 

456 DATA 27,80,27,52,27,71,255 

460 RESTORE 461: GOTO 560 

461 DATA 15,14,255 

465 RESTORE 466: GOTO 560 

466 DATA 15,14,27,52,255 

470 RESTORE 471: GOTO 560 

471 DATA 15,14,27,71,255 

475 RESTORE 476:G0T0 560 

476 DATA 15,14,27,52,27,71,255 

480 RESTORE 481: GOTO 580 

481 DATA 14,255 

485 RESTORE 486: GOTO 580 

486 DATA 14,27,52,255 

490 RESTORE 491: GOTO 580 

491 DATA 14,27,69,255 

495 RESTORE 496: GOTO 589 

496 DATA 14,27,52,27,69,255 

500 RESTORE 501:6OTO 580 

501 DATA 14,27,71,255 

505 RESTORE 506: GOTO 580 

506 DATA 14,27,52,27,71,255 

510 RESTORE 511:G0T0 5B0 

511 DATA 14,27,69,27,71,255 

515 RESTORE 516:60T0 580 

516 DATA 14,27,52,27,69,27,71,255 
540 R$(46,46)=CHR$(133):G0T0 600 

560 Rt(46,46)=CHR»(67):R»(43,43)=CHR»il):G0T0 600 

580 R»(46,46)=CHR$i41):R$(43,43)=CHR$(l) 

600 1=48 

610 READ A: IF A=255 THEN GOTO 700 

620 R»(I,I.l=CHRiiA):I=I+l:GOTO 610 

700 GRAPHICS 0:POSITION 15,?:? 'ACCU-PRINT' 

710 POSITION 7,1:? "CONTROL CHARACTER SELECTION": 

POSITION 2,3:1=57 
720 PRINT 'ANY CONTROL CHARACTERS TO ALLON"; 
730 DIN A$<1)! INPUT A$:IF A»(1,1)<>"Y" THEN GOTO 803 
740 PRINT "CONTROL CHARACTER TO ALLOW: '\ 
750 INPUT A:R$(I,I)=CHR*(A):I=I+1:IF 1)185 THEN GOTO 800 
760 PRINT "ANY HORE"; 
770 INPUT Ai:IF Atil,l)=°Y" THEN GOTO 740 
800 GRAPHICS «:PDSITION 15,0:? "ACCU-PRINT" 
810 POSITION 11,1:? "DISK FILE CREATION" 
820 POSITION 2,3:? "FILE NANE: "; 
830 DIH F»(15): INPUT F$ 
840 OPEN il,8,0,F» 
850 POSITION 2,5: 

? "{REVERSE DN}NO« NRITING FILE{REVERS£ OFF}" 
855 PUT il,255:PUT «1,255:PUT ll,252:PUT #1,28: 

PUT ll,227:PUT #1,31 
860 FOR 1=1 TO 744:PUT #l,ASCiR$(I,Ii):NEn I 



865 PUT »1,224:PUT #1,2:PUT «1,225:PUT 11,2: 

PUT ll,252:PUT #1,28 
870 CLOSE #1 

875 POSITION 2,7:? 'CREATE ANOTHER FILE"; 
880 INPUT A$:IF A$(1,1)="Y° THEN CLR :GOTO 10 
890 GRAPHICS 0:CLR :END 

900 DATA 173,31,208,41,4,240,19.169,23,141,27 

901 DATA 3,169,29,141,28,3,238 

902 DATA 232,2,238,232,2,238,232,2,96,158,238,219 

903 DATA 238,157,238,183,29,128,238,157,238,76 

904 DATA 120,238,0,0,1, 81, 0,0,0, 0,0,0, 0,0,0, 0,0, 0,0 

905 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0 

906 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

907 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

908 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

909 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

910 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

911 DATA 0,0,0,0,0,0,0,0,0,133,31,32,26,239,160 

912 DATA 0,140,181,29,140,182,29,140,183,29,204,42 

913 DATA 29,20(1,19,238,42,29,185,43,29,201,0 

914 DATA 240,9,166,29,32,207,30,200,76,208,29,165 

915 DATA 31,32,10,31,192,1,240,3,76,188,30,238,181 

916 DATA 29,24,173,40,29,109,39,29,141,39,29,205 

917 DATA 41,29,208,13,169,155,166,29,32,207,30 

918 DATA 173,4!?, 29, 141, 39, 29, 169,27, 166,29,32 

919 DATA 207, 3i!i,169, 76,172,38, 29,192, 0,240, 2, 169, 75 

920 DATA 166,29,32,207,30,169,8,166,29,32,207,30,169 

921 DATA 0,166,29,32,207,30,172,182,29,165,31 

922 DATA 32,72,31,138,201,155,208,5,238,183,29 

923 DATA 169,144,166,29,238,182,29,32,207,30,169 

924 DATA 8,205,182,29,208,223,169,0,205,183,29 

925 DATA 240,97,141,182,29,172,40,29,169,8,166,29,32 

926 DATA 207,30,172,38,29,192,0,240,7,169,8,166 

927 DATA 29,32,207,30,169,27,166,29,32,207,30,169 

928 DATA 76,172,38,29,192,0,240,2,169,75,166,29,32 

929 DATA 207,30,169,8,166,29,32,207,30,169,0 

930 DATA 166,29,32,207,30,172,182,29,165,31,32 

931 DATA 72,31,138,162,0,201,155,208,2,162,11,138,166 

932 DATA 29,238,182,29,32,207,30,169,8,205,182,29,208 

933 DATA 223,160,1,96,173,39,29,109,40,29 

934 DATA 141,39,29,165,31,166,29,32,207,30,76,185,30 

935 DATA 157,192,3,232,228,33,240,22,134,29 

936 DATA 201,155,240,1,96,169,32,160,0,140,39,29,157 

937 DATA 192,3,232,228,30,208,248,169,0,133,29 

939 DATA 174,127,238,172,128,238,32,230,238,32,89,228 

939 DATA 173,38,29,201,0,240,5,169,0,141,42 

940 DATA 29,96,56,201,156,176,39,201,155,240,32,160,0 

941 DATA 190,^.2, 29, 224, 0,240, 9, 217, 52,29, 240 

942 DATA 18,2i!0,76,21,31,56,201,123,176,12,56,2«l,32 

943 DATA 144,7,201,96,240,3,160,3,96,160,1 

944 DATA 96,0,0,0,0,0,0,0,128,64,32,16,8,4,2,1,141,58 

945 DATA 31,140,60,31,160,0,140,57,31,56,201 

946 DATA 128,144,11,173,58,31,56,233,128,141,58,31,160 

947 DATA 1,140.61,31,173,244,2,141,63,31 

948 DATA 173,58,31,56,201,96,144,4,76,137,31,56,201,64 

949 DATA 144, (.,56, 233, 32, 76, 137, 31, 56, 201, 32 

950 DATA 176,245,105,64, 141, 59, 31, 170, 169, 0,224, 0,240 

951 DATA 14,24,105,8,202,144,246,238,63,31 

952 DATA 169,9,76,143,31,141,62,31,141,182,31,173,63,31 

953 DATA 141,183,31,160,0,174,60,31,189,64 

954 DATA 31,57,62,31,201,0,240,10,173,57,31,24,121,64,31 

955 DATA 141,57,31,200,192,8,208^231,174 

956 DATA 61,31,224,1,208,8,169,255,77,57,31,141,57,31 

957 DATA 173,58,31,172,60,31,174,57,31,96 
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A 
Low Cost 

Mouse 

for the 

VIC-20 

by Robert L Martin WB2KTG 



As most readers of this magazine are 
aware, the "mouse" is a popular easy- 
to-use device for inputting data to 
computer or terminal. Many newly 
designed computers, such as Apple's 
Macintosh, are being built with mice as 
standard factory equipment. 

Having recently purchased a 
VIC-20, and being unwilling to spend 
several thousand dollars to get a new 
mouse-equipped computer, I decided to 
build a mouse which could be used to 
upgrade my present system. 

To begin this project I decided on 
the objectives of the design. First, my 
mouse should be a "hardware-only" 
design. I don't enjoy programming and, 
besides, it will be more of a challenge 
this way. Second, if I do upgrade my 
hardware at some time in the future, I 
don't want the mouse to be 
incompatible with whatever it is I buy. 
The mouse shall be usable with all 
computer systems in existence or 
planned. Third, the design should be 
simple enough that anyone could make 
a duplicate in one evening's time. And 
fourth, it should not be expensive. As 
you will soon see, these objectives 
limit the performance of the final 
product, but we do produce a mouse. 



Not wishing to be inconvenienced 
by the care and feeding of a live mouse, 
I decided to start with the next best 
thing. A rubber mouse from the local 
pet store looked great. The mouse I 
bought cost less than two dollars. As an 
added bonus, my mouse was available 
in several colors. 



A quick incision on the mouse's 
lower abdomen (no anesthetic 
necessary) with my trusty Swiss Army 
Knife and a control port was available 
for interconnecting cable insertion. I 
used a telephone extension cord 
with modular end connectors. The 
connector keeps the cable from pulling 




Figure 2. Detailed illustration of the mouse. 
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out of the control port. The other end of 
the cable is secured to the computer 
with a suitable length of masking tape. 
The assembly and checkout are now 
complete. 

Operating Hints and Suggestions 

The mouse, used in conjunction with 
the intensity control on the monitor, is 
useful for varying the brightness of the 
video display. When the mouse is used 
with the contrast control, the user can 
adjust the luminous intensity ratio 
between the screen characters and the 
background. A little experimentation 
with the mouse will quickly 
demonstrate its other capabilities. 

One caution—feline quadrupeds 
sometimes find the mouse interesting 
also 

Some method was needed to hold 
the mouse between operating sessions. 
While chatting with the manager of our 
local hardware store, I mentioned the 
project and my need. He suggested 
something which appears to be almost 
designed for the job. He called it a 
"trap." That seems to be as good a 
name as any. The trap can be fastened 
to the monitor, the wall, or even to 
your computer table. 

Future Trends 

One industrial espionage agent, whom 
I have done some business with in the 
past, furnished me with a photograph 
he took in the secret research and 
development laboratories of a major 
computer manufacturer. Reportedly, 
their new interface will be named the 
"Hippo. ' ' One distinguishing feature of 
this advanced controller will be the fact 
that it is wireless. Presumably it 
communicates with the computer via 
infra-red or uses some kind of R.F. link. 

I hope you will have as much fun 
building and using the mouse as I did. 
After the novelty wears off, it can 
always be used as a decoy for your next 
mouse hunt! 



Robert Martin may be corresponded w/'t/i 
at 45 Salem Lane, Little Silver, NJ 07739, 
or by ham radio at WB2KTG. 



Figure 3. Mouse and feline q 





Figure 4. iVIouse and mouseholder, sometimes called "trap." 
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Figure 5. Secret photograph of possible successor to mouse, 
alias Hippo, an advanced wireless controller. 
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Raise your Apple's IQ 

e Times A Year! 




A One Year Subscription 
Brings You 12 Issues With: 

Over $500 of Programs for your Home, Business, Education 
and Entertainment. Complete Program Listings with 
Instructions. 

Comprehensive Articles tiiat show what each program does, 
how to use it and how to type it into your Apple, Franklin ACE or 
other Applesoft-compatible computer. 

Regular Features for the Beginner and Expert. 

On The Scene 

The Latest New Software/Hardware Releases. 

Products! Inside and Out 

Comprehensive Product Reviews. 

Education Corner 

Programs that help make Learning Fun. 

Tips 'N Techniques 

Little known programming Tricks you can Use. 

Disassembly Lines 

An Expert reveals the mysteries of Applesoft. 

Utilities 

Superchargers for Basic, DOS, Printing, and More. 

Games 

Arcade Fun you can Type and Run. 

Note 

D Domestic U.S. First Class subscription rate is $61 .96 

D Canada Air Mail subscripton rate is $59.95 

D Outside the tJ.S. and Canada Air Mail subscription rate is $89.95 

All payrnents rnust be in U.S. funds drawn on a U.S. bank. 

©1983 by MicroSPARC Inc. All Riglils Reserved. 

Apple^' is a registered trademark of Apple Computer, I nc. 
ACE* is a registered trademark of Franklin Computer. Inc. 



Try a NIBBLE! 

Here's what sorrie of our Readers say: 

D "Certainly the best magazine on the Apple!" 
n "Impressed with the quality and content. " 
D "Programsremarkably easy to enter." 
n "/'// be a subscriber for life!" 
D "Your service is fantastic . . .as a matter of fact, I'm 
amazed!" 

Try a NIBBLE! 

NIBBLE is focused completely on the Apple and 
Applesoft-compatible computers. 

Buy NIBBLE thrcughyour local Apple Dealer or subscribe now 
with the Coupon, or Order Card in this issue. 

You'll want Back Issues Too! 

Here are some examples of programs you can get: 

The Investor— Stock Tracking, Reporting, and Graphing. 

Recipe Box— Kitchen/Menu Management made Fun. 

The Librarian— Auto Logging and Retrieval of your Disks. 

Designer/Illustrator- Art/Design Creation and 
Composition with Graphics. 

Machine Language Editor— Quick and Easy Aid for Typing 
and Changing M/L Programs. 

And Mucfi . . . Much More! 
NIBBLE will become a permanent part of your Reference 
Library. Discover why 95% of NIBBLE Readers save every issue! 

Join more than 120,000 Apple/Ace users who say: 
"NIBBLE IS TERRIFIC! " 

SUBSCRIBE NOW AND SAVE $12.00 OFF THE COVER PRICE! 



nibble 



V/54 



We accept f^aster Charge & Visa 



Box 325, Lincoln, MA 01773 (61 7) 259-971 

I'll try nibble! 

Enclosed is my $:!6.95 (for 12 issues) 
(Outside U.S., see special note on this page.) 

D check D money order D bill me (U.S. only) 

Your subscription wil begin with the next issue published after receipt of your 
check/ money order. 



Card # . 



PL EASE PRINT CLEARLY 



.Expires . 



Signature . 
Name 



Address . 

City 

State 



-Zip. 
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Double Vision Catalog 
Double Vision Catalog 

for 
for 

40 01 80 Columns 
40 or 80 Columns 



by Alan and Valerie Fleeter 
by Alan and Valerie Fleeter 



As more people buy Apple lie's, we will 
be seeing more software using 80 
columns. It is something to be 
expected. One logical usage of an 80 
column width is in the CATALOG 
program, using the other half of the 
screen for listing file information. In 
the past, several DOS patches have 
appeared in publications to display two 
columns of file information for the 
normal 40 column display. Although 
we generally use short filenames, (we 
hate typing], the patches did shorten 
the amount of information sent to the 
screen. Now with a full 80 columns 
available, the complete file 
information can fit in two columns of 
40 characters each. 

When you think of it, most people's 
printers already have 80 or 132 
columns, so why not have the 
CATALOG use all the available space, 
whether there are 40, 80, or 120. Why 
not take it even one step further and 
allow the CATALOG to shorten the 
filenames when wanted, printing 
multiple columns of files? 

With these dreams, we set out to 
work on the CATALOG command for 
DOS. We were not only successful in 
the results we produced, but 
accomplished them with a patch that 

32 



merely replaces the original 
CATALOG. This saved valuable patch 
space needed for other DOS 
enhancements already published. 

So exactly what does this 
CATALOG patch do? Well,it depeads 
on the number of characters your 
output device has and whether you use 
it in the normal or shortened mode. 
The chart in Figure 1 summarizes tiis. 

Figure 1: Number of columns of 
filenames displayed 



Normal 



COLUMNS 
40 80 
1 2 



Shortened 



120 
3 

6 



If you use the normal CATALOG 
mode, 40 characters of information are 
displayed per filename. In the 
shortened mode, 20 characters are 
displayed per file, since the end of the 
filename is chopped off. If you send a 
CATALOG to an Apple n and App .e II 
Plus screen (40 column width), ycu'U 
see either one or two files per line 
depending on the mode. If you sent a 
CATALOG to an Apple He (80 column 
width), or an 80 column printer, such 

MICRO 



as an EPSON MX-80, you will see 
either 2 or 4 column files. Many 
printers have at least 120 characters per 
line, enabling them to produce 3 or 6 
columns of file information. 
How Was This Done? 
When the Apple screen receives 40 
characters, it automatically does a 
carriage return and line feed. We used 
this feature when we developed our 
CATALOG patch to DOS. Since the 
screen will take care of its own carriage 
returns, we just keep sending it 
information without telling it where 
the next line starts. This way the patch 
doesn't have to know how many 
columns the device has available. This 
CATALOG command sends out either 
20 or 40 characters per file name 
continuously, and the printer or screen 
decides how much will fit on each line. 
This works well for screens, but 
some printers or their interface cards 
might not be set up to send out a 
carriage return when their line is full. 
There is usually a switch on the printer 
or the interface to do this, or some 
specified control sequence will 
accomplish this. If you are unsure as to 
how your system handles this, just 
follow the suggestions we will give 
later. 

No. 71 - April/May 1984 



One nice side benefit of this patch is 


Figure 2. Sample CATALOGS for 40 and 80 columns. 


that you don't need to do any POKE'S 




CATALOG 


to set up the number of columns. When 




DISK VOLUME 254 


you send out a CATALOG hating to 




A 002 HELLO 


two devices at the same time you will 


Normal 40 Column j „i pRj^jE,, | 


get different listings. For example, if 


screen 


A 003 TEXT-TI)-FOCUS 


you have a 132 column printer and an 




A 003 FOCUS-TO-TEXT 


80 column card and then enter 




A 119 BUCHANAN 


"CATALOG", your screen will show 




A 003 FOCUS m 


two columns of filenames, while your 




A 039 BUCH-2 


printer will produce three columns. 




B 054 MASTER DIRECTORY. L 
A 003 NEK FOCUS 


Entering the Patch 




B 008 MASTER DIRECTORY 
B 009 MASTER DIR/DISPLAY.L 


We have written the assembly 




T 001 HILISTIIR.HS 


language routine to patch DOS for you. 




T 008 B00TN0H2 


Enter the program, either into an 




A 027 FLYNN 


assembler, or enter the opcodes, and 




A 027 MICRO HLR 


save it to disk. Whenever you wish to 




B 006 FLOETER 


have this patch in your DOS, BRUN 




A 041 BUCHl 


the program. This could be part of your 




] 


HELLO routine. 








DISK VOLUME 254 


Normal 80 Column 


How to Shorten Filenames 


A m HELLO 


Printer j 001 PRINTER 




A m TEXT-TO-FOCUS A iiZ FOCUS-TO-TEXT | 


When you want to shorten the 


A 119 BUCHANAN 


A 003 FOCUS NEW 


filenames to store more information on 


A «39 BUCH-2 


B 054 MASTER DIRECTORY.L 


the screen, enter POKE 44561,10 and 


A 003 NEH FOCUS 


B 008 MASTER DIRECTORY 


POKE 44592,2. This will print 20 


B 009 MASTER DIR/DISPLAY.L T 001 HILISTER.HS | 


characters per file. To reset it back to 


T 00B B0DTN0N2 


A 027 FLYNN 


the full 40 characters per file, enter 


A 027 MICRO NLR 


B 006 FLOETER 


POKE 44561,29 and POKE 44592,3. 


A 041 6UCH1 




DOS Warning 


[;^j^l^Qg Shortened 80 Column Printer 




DISK VOLUME 254 




We always like to warn people about 


A 002 HELLO T 001 PRINTER A 003 TEXT-TO-FOC A 003 FOCUS-TO-TE 


using a patched DOS. This patch 


A 119 BUCHANAN A 003 FOCUS NEM A 039 BUCH-2 B 054 MASTER DIRE 


doesn't use any of the patch space used 


A 003 NEN FOCUS B 008 MASTER DIRE B 009 MASTER DIR/ T 001 HILISTER.MS 


by some of the other DOS 


T 008 BOOTM0N2 A 027 FLYNN A 027 MICRO MLR B 006 FLOETER 


improvements, so you shouldn't have 


A 041 BUCHl 




any conflicts with other patches, but 


] 




we can't guarantee it. Although we 






haven't had any problems, whenever 






you change a standard you can't predict 


Listing 1 


I PATCH FDR 80 COLUMN CATALOG FOR DOS 3.3 


if someone else assumed that part 




5 


would stay the same. 




} BY AL FLOETER 


Conclusion 




i 


Now you can utilize the entire line for 


0300 


ORG t300 


CATALOG'S, whether it is 40, 80 or 




5 


120 columns. Not only will you make 


0085 


IND EQU $B5 


better use of your display area, but you 


0087 


COUNT EBU «87 


won't have to tell your device how 




5 


many columns you have. 


0300 A2 00 


LDX 10 




0302 6D 26 03 


LOOP LDA PATCH, X 




0305 F0 IE 


BEB DONE 




0307 85 86 


STA IND+1 ; GET HI ORDER 




0309 E8 


INX 




030A BD 26 03 


LDA PATCH, X 




030D 85 85 


STA IND ; GET LO ORDER 




030F EB 


INX 




0310 BD 26 03 


LDA PATCH, X ; GET COUNT 




0313 85 87 


STA COUNT 




0315 E8 


INX 




0316 A0 00 


LDY ii 
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FLIP 
SORT 

PLUS™ 

Smoke acrylic 

eight dividers 

liolds 110 disl<ettes 

^27.95 



THE 
FLIP 

PAK™ 

Smol<e acrylic 
lioids 10 disl<ettes 
easel back stand 

6 for $12.00 







HEAD 
CLEANING 

KIT 

2 cleaning disks 
non-abrasive 
30 cleanings 

$14.95 



THE 
FLIP 

SORT™ 

Smoke acrylic 
five dividers 
liolds 70 disks 

$19.95 





THE 
PAPER 
BOSS™ 

Bottom clamping 

36" flexible arm 

beige steel 

$19.95 



n YES! Please rush me the 
items I've checked above! I 
am enclosing my check or 
Charge Card Information and 
I understand that you'll pay 
the shipping! 

CALIFORNIA RESIDENTS PLEASE ADD SALES TAX 

Name 



Street. 

City 

Zip 



.State. 



Phone. 




ci 



IN CA 

(800) 824-3252 



as 

HOME BASE SUPPLY 

422 Soquel Avenue 

Santa Cruz, CA 95062 

(408) 458-1377 



OUTSIDE CA 
(800) 824-3251 



Listing 1 


0318 BD 26 03 


DOIT 


LDA PATCH, K 


BET BYTE OF PATCH 


(continued) 


031B 91 85 
OES 

031D E8 
031 E C8 




STA (IND),y 

INK 
INY 


) PUT IT NHERE IT G 




031F Zh 87 




DEC COUNT ; 


DONE YET 




0321 D< FS 




BNE DOIT 


NO 




0323 F0 DD 




BEQ LOOP ; 


YES 




0325 60 


DONE 


RTS 








; PiUCH AREA IN ORDER OFi 








; ADDRESS OF NHERE TO PUT IT | 






; I4UHBER OF BYTES TO HOVE 








i PATCH ITSELF 






0326 AD A8 


'patch 


BYT «AD,«A8 






0328 06 




BYT 6 






0329 EA 




NOP 






032A A9 BD 




LDA l«BD ; 


OUTPUT CR 




032C 20 ED FD 




JSR «FDED 






032F AD C3 


! 


BYT $AD,«C3 






0331 06 




BYT 6 






0332 EA 




NOP 






0333 A9 8D 




LDA l«8D ; 


OUTPUT CR 




0335 20 ED FD 




JSR «FDED 






0338 AD EB 


) 


BYT «AD,«EB 






033A 30 




BYT $30 






033B A0 07 




LDY 17 






033D 0A 


SHIFT 


ASL ; 


FIND A BIT 




033E 30 03 




BNI GOT IT 






0340 88 




DEY 






0341 D0 FA 




BNE SHIFT 






0343 B9 A7 B3 


GOT IT 


LDA «B3A7,Y ; 


GET PROGRAM TYPE 




0346 20 ED FD 




JSR «FDED 


OUTPUT IT 




0349 A9 A0 




LDA l«A0 ; 


SPACE 




034B 20 ED FD 




JSR «FDED 






034E BD E7 B4 




LDA «B4E7,K 






0351 B5 44 




STA «44 






0353 BD E8 B4 




LDA «B4E8,K 


GET SIZE 




0356 85 45 




STA $45 






0398 20 42 AE 




JSR «AE42 


OUTPUT IT 




039B A9 A0 




LDA l«A0 


i SPACE 




035D 20 ED FD 




JSR «FDED 






0360 A0 ID 




LDY I«1D 


; FILE NAME SIZE(«A 




FOR 4 ACRO 










0362 BD C9 B4 


OLDOP 


LDA «B4C9,K 


GET NAKE 




0365 C9 A0 




CnP ltA0 


; CONTROL CHARACTER 




0367 B0 02 




BCS NO 






0369 A9 AA 




LDA l«AA 


; HAKE IT A ASTER IS 




036B AE 21 


) 
NG 


BYT $AE,$21 






036D 01 




BYT 1 






036E F0 




BYT «F0 






036F AE 2F 


! 


BYT $AE,$2F 






0371 05 




BYT 5 






0372 A2 03 




LDX 13 


5 3 SPACES (2 FOR FO 




UR ACROSS) 










0374 20 4A F9 




JSR $F94A 






0377 00 




BYT 






037B 




END 
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A New Variation on an 
Old Theme: Replace 
Yom 6502 



by Ron M. Battle 



There are probably a lot of computer , 
enthusiasts out there who have waited 
for a high-performance successor to the 
trusty 6502. Enter Rockwell's new 
CMOS 6502 product line. Although not 
the ultimate successor to the "old" 
6502, the R65C00 family has many 
enhancements you might find quite 
interesting. 

New Features 

This new family of CMOS 
microprocessors comes in 3 models: 

R65C02 

R65C102 

R65C112 

All three will be available with your 
choice of operating frequency: 

2 MHz 

3 MHz 

4 MHz 



Each uses a single 5 volt ± 20% 
power supply drawing only 4 roA per 
MHz. By stopping the input clock, the 
processor will go into a standby mode 
and dissipate only 10 uW of power. In 
addition, 12 new instructions are added 
to the instruction set plus 2 new 
addressing modes. 

Processor Description 

Figure 1 has the pinouts of these new 
chips and, as you can see, the R65C02 
and R65C102 are pin compatible with 
the 6502. 

R65C02: This is a direct 
replacement for the 6502. 

R65C102: This new chip has 
functions on pins not used by the 
original 6502. No external time base is 
needed when a crystal is connected 
between pins 35 and 37, but the crystal 
frequency will be divided by four. 



Alternatively, you can input a TTL 
level single phase clock signal to pin 37 
|XTLI) for compatibility with the 6502. 
Pin 3 (Phase 4) is a quadrature clock 
output used for peripheral timing. This 
output clock replaces the Phase 1 on 
the 6502. Pin 4 (ML), memory lock, is 
an output used by arbitration circuitry 
so read-modify-write instructions are 
not interrupted by external devices. Pin 
36 (BE), bus enable, allows an external 
device to tri-state the data, address, and 
R/W lines by pulling this pin low. The 
R65C102 would be an interesting 
substitute for the 6502 so direct 
memory access (DMA) devices could 
be implemented easily. 

R65C112: Designed as a slave 
processor, this model is used in 
conjunction with the R65C102 for a 
master-slave configuration. Pin 37 
(Phase 2] is the input clock derived 
from the R65C102 Phase 2 output. This 



Figure 1 
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chip has DMA capability like the 
R65C102. 

New Addressing Modes 

Indexed Absolute Indirect: This new 3 
byte instruction takes 6 machine cycles 
to execute. The new opcode is C7H and 
new mnemonic is JMP(IND),X. In 
execution, the contents of the second 
and third bytes are added to the X 
register. The effective address is 
pointed to by this 16 bit result. This 
addressing mode comes in handy when 
you don't have room in zero page for a 
table of jump vectors or if you have a 
table of jump vectors in Read Only 
Memory [ROM). 

Indirect: This new 2 byte 
instruction takes 5 or 6 machine cycles 
to execute. The second byte of this 
instruction is a zero page address. The 
zero page address points to the effective 
address, stored as low byte first, then 
high byte. This new addressing mode 
works with instructions ORA, AND, 
EOR, ADC, STA, LDA, CMP, and SBC. 

New Instructions 

Table 1 gives an overview of the new 
instructions. Most notable of these are 
the bit manipulation instructions. 
Most of these work on zero page bytes 



Table 1 



Mnemonic 


Function 


BBR 


Branch on Bit Reset 


BBS 


Branch on Bit Set 


BRA 


Branch Always 


PHX 


Push X Register on Stack 


PHY 


Push Y Register on Stack 


PLX 


Pull X Register from Stack 


PLY 


Pull Y Register from Stack 


RMB 


Reset Memory Bit 


SMB 


Set Memory Bit 


STZ 


Store Zero 


TRB 


Test and Reset Bits 


TSB 


Test and Set Bits 



so that individual bits can be set [1] or 
reset (0), and program branching can be 
controlled by the status of each bit. 
These instructions facilitate coding for 
microprocessor based controller 
applications. The BRA, branch always 
instruction, is a handy tool for 
designing relocatable code and saves 
memory and machine cycles. The 
PHX, PHY, PLX, PLY instructions save 
memory and machine cycles, 
especially when used for interrupt 
processing. The STZ, store zero 
instruction, simplifies coding and will 
also save memory and machine cycles 
compared with alternate techniques. 



Peripheral Support 

To round out the R65C00 family, 
Rockwell has also introduced two 
CMOS peripheral chips, the R65C21 
PLA and R65C24 PLA with timer. Both 
are low power versions of the 6521 
Peripheral Interface Adapter which 
offers the user two 8-bit ports with 
handshaking. In addition, the R65C24 
has a 16 bit timer on board for use in 
timing applications. Initially, two 
versions will be offered, 1 MHz and 2 
MHz. 

Things To Come 

A high performance microcomputer 
system could be built using the 4 MHz 
R65C102, a DMA controller and fast 
arithmetic processor chip. With its bit 
manipulation instructions and low 
power consumption, the R65C02 could 
make a high performance controller 
utilizing FORTH. With the read access 
time of the 4 MHz processor being 168 
nanoseconds, it will work with the 
newer 6116 CMOS 150 ns. memory 
chips. In fact, my next project is 
converting my Ohio Scientific 2 MHz 
micro to 4 MHz operation with the 
R65C102. Talk about computing in the 
FAST land!!! 

For more information on the R65C00 
family, contact: Rockwell International, 
Electronic Devices, P.O. Box C, Newport 
Beach, CA 92660; 714/833-4700. 




P.O. Box 4364 
Flint, Michigan 48504 
(313) 233-5731 
(313) 233-3125 



ZANIM 

SYSTEMS 



WE CARRY MANY VIC AND APPLE PRODUCTS. PLEASE SEND FOR A CATALOGUE. 



CP/M BOARD 



BARE BOARD $29.00 



128K RAM 



BARE BOARD $29.00 



COMPATIBLE WITH ALL SATURN SYSTEMS SOFTWARE 



80 COLUMN BOARD* 

• COMPATIBLE WITH THE VIDEX VIDEOTERM WITH SOFTSWITCH BUILT IN 



BARE BOARD $29.00 



ALL BOARDS HAVE SOLDER 

MASKING, COMPONENT LAYOUT, 

AND GOLD EDGE FINGERS 



BUILD YOUR OWN 

APPLE PERIPHERAL CARDS 

AND SAVE UP TO 80% 



WE WILL SUPPLY 

THE IC LIST FOR 

ANY BOARD 



app_e 11 is trademark of apple computers inc 

cp;m is registered trademark of digital research, inc 

vide;x is registered trademark of videx inc 



Spec Box: 16K CoCo^ 



Mike Hamilton 



Requirements: 
Any TRS-80C Color Computer 



Have you ever wished you could have 
Extended BASIC for one day, just to see 
what high-resolution was like? 
Vhether in text or high-resolution, the 
many modes of the Color Computer are 
generated by programs controlling the 
VDG (Video Display Generator). The 
graphics of Extended BASIC are 
programs stored in the Extended ROM 
chip. The program for high-resolution 
can easily be written in BASIC or 
assembly language, as illustrated by the 
following programs. 

Three programs are provided, each 
accomplishing the same thing: high- 
resolution. FAST is for those that like 
fast, complex programs written in 
assembly language. LOADER is a 
BASIC utility program that loads and 
stores the FAST machine-code data. 
The second program, SLOW, is written 
in pure and simple, but slow, BASIC. 
The third, and my favorite, is HYBRID, 
combining the simplicity of BASIC and 
the speed of machine-code to create an 
efficient compromise. Use whichever 
you prefer, or use them all! Please note 
that only HYBRID contains a 
demonstration of the high-resolution. 



How it Works 

Certain steps must be taken to program 
the VDG for proper functioning. Each 
distinct step is documented in all the 
programs to help in understanding. 

The first step in programming the 
VDG is reserving memory. This can be 
done via the clear statement. Line 10 of 
each program 'clears' the required 
amount of memory. Since FAST is 
actually entered by LOADER, it does 
not require its own statement to 
reserve memory. 

The second step is setting the 
proper values to the appropriate 
registers. This is the subroutine labeled 
'PMODE 4' in lines 700-800 of FAST, 
1000-1030 of SLOW, and 10000-10030 
of HYBRID. 

The third is clearing the screen or 
video memory. Lines 640-690 of FAST, 
10040 of HYBRID, and 1040 of SLOW 
accomplish this. As you can see in 
SLOW, this takes considerable time. 
HYBRID implements a machine-code 
subroutine that takes about 1/5 of a 
second. This is the only distinction 
between SLOW and HYBRID. 



All that's left is plotting-setting, 
lesetting, and pointing of a dot. Each 
c:an be implemented by various logical 
operations. Prior to the plotting in 
SLOW and HYBRID, the correct values 
of X and Y must be put in the X and Y 
^'ariables. If, after calling the point 
subroutine, the variable FT is not equal 
to zero, then the point is set; else, it is 
reset. 

FAST uses a slightly different 
approach. Before plotting, one must 
place the corresponding values of X and 
Y into Xval and Yval and set the SRP 
register. The SRP (set/reset/point) 
register must contain a zero to set, 255 
to point, and any other value to reset. 
If, after calling the point subroutine, P 
reg contains 0, the point is reset; 
otherwise, a value of 255 means it's 
set. 

Now you're ready to start 
experimenting with high-resolution. I 
recommend you use HYBRID, since it 
includes a demonstration and is 
considerably faster than SLOW. Try 
experimenting, such as changing the 
\'alue of 248 to 240 in line 1020 of 
SLOW and line 10020 of HYBRID. If 
you're really ready to experiment, read 
section 4 of Getting Started with Color 
BASIC. 

There are many other modes 
waiting to be used. Some are 
unavailable even through Extended 
BASIC, such as 192 x 64 resolution 
with 8 colors available at once. Good 
luck. 



fAike Hamilton is a 15 year old computerist 
who lives in the small town of Checotah, 
Oklahoma, where the computer revolution 
is just starting. He has slightly over 3 years 
cif programming experience and has never 
had a formal programming class. His 
equipment consists of an Extended Color 
Computer with 16K, a tape recorder, and 
small printer. 







1 HYBRID USE ALL LINES EXCEPT 1* 




2 SLOW USE ALL LINES EXCEPT « 


70 Y=INT(R»SIM((90-I)*1)*SIN(90-IK96) 


10 CLEAR 255,10227 'RESERVE HEHORY 


80 60SUB 1005C: NEXT I 


19 ' READ AND STORE BIT PATTERNS 


90 GOTO 90 


20 FDR 1=0 TO 7IREAD A!VL(I)=A!NEXT I 


9998 ' PH0DE4 SUBROUTINE 


H 29 'READ AND STORE CLS SUBROUTINE 


9999 'SET GFFSEIT VAL 


H 30 FOR 1=10228 TO 10239!READ AsPOKE I,A!NEXT I 


10000 POKE 65487, OiPOKE 65483, 0;POKE 65480,0 


35 GGSUB 10000:GGSUB 10040 


10009 'SET VDG flEGISTER 


40 PI=3.14159:R=80 


lOOlO POKE 65472, OiPOKE 65475, OiPOKE 65477,0 


50 FOR 1=0 TO 2»PI STEP PI/330 


10019 'SET CONTROL REGISTER 


60 X=INT(R«SIN((90-n«B)«SIN(I)H28) 


10020 POKE 65314, (PEEK(65314) AND 7) OR 248 
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10030 RETURN 

10039 'PCLS SUBROUTINE 
♦» 10040 EKEC 10228; RETURN 
i« 10040 FOR 1=10240 TO li393! POKE l,0iNE)(T IjRETURN 

10049 'SET SUBROUTINE 

10050 SOSUB lOOBOiPOKE LC,PEEK(LC) OR VLiRETURN 

10059 'RESET SUBROUTINE 

10060 G0SU6 lOOSOiPOKE LC,(PEEK(LC) AND (NOT VD): 
RETURN 

100i9 'POINT SUBROUTINE 
10070 GOSUB 10080!PT=PEEK(LC1 AND VLiRETURN 
10080 LC=10240+(Y»32)+INT(K/8) 
10085 VL=VL(7MMNT()(/BI»8))! RETURN 
10090 DATA 1,2,4,8,16,32,44,128 
»» 10095 DATA 79,142,40,0,167,128,140,64,1,38,249,57 



276A 

276A B6 
276D 81 
276F 22 
2771 CC 
2774 FD 
2777 F6 
277A 16 
277C 3D 
277D F3 
2780 FD 
2783 F6 
2786 C4 

2788 4F 

2789 IF 
278B F6 
279E 54 
278F 54 

2790 54 

2791 F3 
2794 FD 
2797 A6 
279B 34 
279D BE 
27A0 B6 
27A3 27 
27A5 81 
27A7 27 
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SYSTEM EQUATES 



27FA LOC 

27FC SRP 

27FD PRE6 

27FE XVAL 

27FF YVAL 



EQU 10234 

EQU 10236 

EQU 10237 

EQU 10238 

EQU 10239 



ORG $276A 



27FF PLOT 

BF 

3F 

2800 

27FA 

27FF 

20 

27FA 
27FA 
27FE 
07 

01 
27FE 



27FA 

27FA 

89 27C9 

02 

27FA 

27FC 

OC 

FF 

OF 



27A9 35 02 
27AB 43 

27AC A4 84 

27AE A7 84 



RESET 



LDA 

CHPA 

BHI 

LDD 

STD 

LDB 

LDA 

MUL 

ADDD 

STD 

LDB 

ANDB 

CLRA 

TFR 

LDB 

LSRB 

LSRB 

LSRB 

ADDD 

STD 

LDA 

PSHS 

LDK 

LDA 

BEQ 

CMPA 

BEQ 

PULS 
COMA 
ANDA 
STA 



YVAL 

#191 

STOP 

#10240 

LOC 

YVAL 

♦32 

LOC 
LOC 
XVAL 
#7 

D.X 
XVAL 



CHECK FOR INVALID CODE 
RETURN IF SO 
STORE OFFSET 

FIND Y BYTE 
FIND INDEX VALUE 



LOC 

LOC 

DATA,)( 

A 

LOC 

SRP 

SET 

#$FF 

POINT 



FIND X BYTE 



FETCH BIT PATTERN 
STORE ON STACK 
LOAD BYTE VALUE 
CHECK SET/RESET/POINT 
IF THEN SET 

IF 255 THEN POINT 



A ELSE, RESET 
J- 



27B0 39 




STOP 


RTS 






27B1 35 


02 


SET 


PULS 


A 




27B3 AA 


84 




ORA 


,X 




27B5 A7 


84 




STA 


.K 




27B7 39 






RTS 






27BS 35 


02 


POINT 


PULS 


A 




27BA A4 


84 




ANDA 


iX 




27BC 27 


06 




BEQ 


OFF 




27BE 86 


FF 




LDA 


ItFF 




27C0 B7 


27FD 




STA 


PRES 


STORE 255 IF ON 


27C3 39 






RTS 






27C4 4F 




OFF 


CLRA 






27C5 B7 


27FD 




STA 


PREG 


STORE IF OFF 


27C8 39 






RTS 







» BIT PATTERNS 



27C9 80 40 20 10 DATA 
27CD 08 04 02 01 



FCB 128,64,32,16,8,4,2, 



27D1 4F 
27D2 8E 
27D5 A7 
27D7 8C 
27DA 26 
27DC 39 

27DD B6 
27E0 B7 
27E3 D7 
27E6 B7 
27E9 B7 
27EC B7 
27EF B7 
27F2 84 
27F4 8A 
27F6 B7 
27F9 39 



2800 
80 
4001 
F9 



FF22 

FFCF 

FFCB 

FFC8 

FFCO 

FFC3 

FFC5 

07 

F8 

FF22 



CLS CLRA 

LDX 

STA 

CMPX 

BNE 

RTS 



LOOP 



#10240 

,X+ CLEAR THE SCREEN RAM 
#16385 TEST FOR END 
LOOP CONTINUE 
DONE 



PM0DE4 



LDA 

STA 

STA 

STA 

STA 

STA 

STA 

ANDA 

ORA 

STA 

RTS 

END 



65314 

6S487 

65483 

65480 

65472 

65475 

65477 

#7 

#248 

65314 



SET OFFSET VAL 

OFFSET 

OFFSET 

SET VDG REGISTER 

VD6 REGISTER 

VDG REGISTER 

SET CONTROL REGISTER 



I ' FAST LOADER 

10 CLEAR 2J5, 10089 

20 FOR I=1C090 TO 10233: READ A: POKE I, A: NEXT I 

30 DATA 182,39,255,129,191,34,63,204,40,0,253,39 

40 DATA 250,246,39,255,134,32,61,243,39,250,253,39 

50 DATA 25C, 246, 39, 254, 196, 7, 79, 31, 1,246, 39, 254, 84 

60 DATA 84,84,243,39,250,253,39,250,166,137 

70 DATA 39,201,52,2,190,39,250,182,39,252,39,12,129 

80 DATA 25^,39,15,53,2,67,164,132,167,132,57,53,2 

90 DATA 17C,132, 167, 132, 57, 53, 2, 164, 132, 39, 6, 134 

100 DATA 255,183,39,253, 57, 79, 183, 39, 253, 57, 128, 64, 32 

110 DATA 16,8,4,2,1,79,142,40,0,167,128,140,44,1,38 

120 DATA 249,57,182,255,34,183,255,207,183,255,203 

130 DATA 183,255,200,183,255,192,183,255,195,183,255 

140 DATA 197,132,7,138,248,183,255,34,57 
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This famous book now contains tlie most comprehensive description of firmware 
and hardware ever published for the whole Apple II family. A new section with 
guide, atlas and gazeteer now provides Apple lie specific information. 



• Gives names and locations of various Monitor, 
DOS, Integer BASIC and Applesoft routines and 
tells what they're used for 

• Lists Peeks, Pokes and Calls In over 2000 
memory locations 



• Allows easy movement between BASIC and 
Machine Language 

• Explains how to use the information for easier, 
better, faster software writing 



This expanded edition is available at the new low price of only $19.95 

For the 35,000 people who already own previous editions, 
the lie Appendix is available separately for just $5.00. 



Please srnd nrip 

What's Where in tne Apple ^ $19 95 ea 



(Plus S2 00 per copy shipping/handtlng) 



Apptu 'le Appendix m $5 00 cd. 
(includps shipping charges) 



MjjS r^sideiits adrl 5" sales ta< $■ 
Total Enclosed S 

For faster. service 
Phone 617/256-3649 



'Narna ' 
'Addresa,, 



.Cl^ 
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state 
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' . Ctieck 



VISA 



MasTofCard 



ticpircs. 
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Easy DOES-IT 
(Not DOS PLUS) 



Part 4 

by Michael Keryan 




DOES-IT - Add new utility 
functions to a Commodore 
64 by use of the RESTORE 
key. 



Editor's Note: It has been brought to our attention that Micro System 
Software, inc. has manufactured a software package under the trademarl< of 
DOS PLUS since 1981. We wish to make it ciear that the programs included in 
the four parts of this article are in no way related to that product and that, had 
we been aware of the product, we would not have allowed the use of the name. 
To avoid further infringement on the trademark in question, we have renamed 
the series "DOES-IT," because in almost any case, no matter what utility your 
C-64 needs, this program "does-it". 



This article adds two new functions to 
the recently published utility program 
(improperly named DOSPLUS in 
previous issues). The first is a program 
that allows BASIC programs to be 
hidden under ROM and swapped with 
the currently active BASIC program. 
The second is a time and alarm routine. 

This is the fourth in a series of 
articles in which a number of machine 
language utility programs have been 
added to a Commodore 64. To access 
these utilities, you press the RESTORE 
key, which generates a Non-Maskable- 
Interrupt. The next key pressed 
determines which utility program is to 
be run. 

The series of programs reside in 
unused RAM starting at location 
$C800. Called DOES-IT, they can be 
loaded and initialized at the same time 
as the DOS WEDGE [located at 
$CCOO]. In addition to the permanent 
utilities, additional transient programs 
can be called in from 'hidden' RAM 
located in the same address space as the 



BASIC ROM ($AOOO-$BFFF) and 
executed at $C000. 

The framework was given to allow 
anyone experienced with macliine 
language programming to add their 
own routines and assign unique keys to 
access them. However, what if you 
have a BASIC program that you would 
want instant access to? If we can tuck 
away machine language programs in 
hidden RAM, why can't we do the same 
thing with our BASIC programs? 

Hidden BASIC Programs 

From the viewpoint of the computer's 
memory cells, a BASIC program is not 
much different than a machine 
language program; they both consist of 
a lot of 8 bit binary numbers. The 
procedure illustrated here can be used 
to store any BASIC program into 
hidden memory, provided that it can fit 
into this area. The hidden program is 
pulled out by the RESTORE key, 
followed by the left arrow key. In 



addition to pulling out this program, 
the BASIC program currently in 
memory is transferred to the same area 
of hidden RAM-the two programs 
exchange places. Therefore, the 
RESTORE, left arrow sequence can be 
used to toggle between two completely 
different BASIC programs. 

Listing 1 is a BASIC program called 
DIRECTORY. PRINT that we will use 
to demonstrate hiding BASIC 
programs. The program is quite handy 
for producing compact directory 
listings on the printer. The directory 
entries can be listed as-is (unsorted) or 
sorted in alphanumeric order. The 
number of columns for the listing can 
be changed from the default of 3 by 
changing line 1. Using three columns 
[with the compressed mode of a 
printer) allows the listing to be small 
enough to be cut out and taped to the 
front of a diskette jacket. 

To store this program (or any other 
BASIC program), proceed as follows. 
First [with DOES-IT activated) load the 
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30 

¥) 

50 

60 

65 

70 

80 

90 

100 

110 

120 

130 

140 
150 
160 
170 
200 
210 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 

430 
440 
450 
460 
470 
480 
490 
500 
510 
520 

530 
540 
550 
560 
570 
580 
590 
600 



REM 

REM 

REM 

WlDTH=3i WD=WI-li REH NIDTH^COLUHNS 

DATA" *»♦♦*♦»♦♦♦♦♦»♦♦ »♦♦♦♦♦♦♦♦♦♦♦»♦♦ 

0ftTA"» t 

DATA"* DIRECTORS PRINTER » 

DATA"* * 

DATA"****************************** 

DATA"* * 

DATA"* 'S SORTED U' UNSORTED * 

DATA"* 'N NO PRINT '0^ QUIT « 

DATA"* ♦ 

DATA" »*♦♦»*******«***♦«*«*«*♦♦♦♦*♦* 

POKE 53280. 13;P0KE 53281, 7!P0KE 646.0 

FOR 1 = I TO lOi READ AKDi NEXT 

PRINT"{CLEAR.DQWN6}"! J=0 sFOR I = 1 TO lOOi 

Bl(n = ""! NEH 

FDR 1 = 1 TO 10! PRINT" {RVS}»A$!I)"(RVS 

NEKT 

F Q*->"" THEN 140 
F 8*="" THEN 150 

IF QI="Q" THEN CLOSE 15) rR!Nr'{CLEftR}"! END 

IF 6$<>"S" AND Q$<>"U" AND Q$<:>"N" THEN 120 

PfiINr»!CLEAfi) {RVS,SPACE32,RVS0FF}»! Z="l 

60SUB 880 

GETil.A^.Bi 

GETIl.AI.B^ 

GETI1,A*,8I 

C=0 

IF A*0"" THEN C=ASC(A*) 

IF B*<>"" THEN C=C+fiSC(B*)*256 

Z$=HIDIiSTR*(C),2) 

IF LEN(Z*)<1 THEN Z*=" " 

IF LEN(Z*J=J THEN Z*= 

IF LEN(Z$)=2 THEN Z*= 



DIM B*(100l 



GET Q»! 
GET Q*: 



"+Z* 
"+Z$ 



B*(J)=" "+Z*+" »+CHRIt34) 

LZ=0 

GETil.Bt! IF STOO THEN BO TO 510 

IF B*<>CHR*(34) THEN 400 

GETIl.B*! IF B$<>CHR*(34) THEN BI(J)=BI(J)+B$! 

LZ=LZ+l! GOTO 420 

GETtl.B*; IF BI=CHRH32) THEN 430 

B$(J)=BI(J)+CHR$(34): IF LZ>15 THEN 460 

FOR JZ=LZ TO 15! B$(J)=BJ(J)+" ": NEU JZ 

Cl="" 

CKI+B*! GETIl.Bl! IF BIO"" THEN 470 

SS=ST! B$(J)=B$(J)+LEFT$(C*.3) 

PRINT " CRVS} "B$(J)" {RVSOFF}": J=JM 

IF SS=0 THEN 290 

B*(J)=LEFT*(B*(J),LEN(B$(J) 

PRINT " (RVS} "B»(J)" 

CLOSE i 

IF QIO'N" THEN 570 

GET Q$! IF 8*>"" THEN 540 

GET Si! IF 81="" THEN 550 

GO TO 120 

IF BI="U" THEN 680 

L8=2 

FOR II=J-1 TO LB STEP -1 

IF MIDI(BI(II-n,7,15) <= HIDI(BI(II),7,15) THEN 650 



■1)+" BLOCKS FREE." 
(RVSOFF}": 



610 EXI = BKII) 

620 BKII) = BKII-l) 

630 BKIM) = EXI 

640 FX = II 

650 NEXT II 

660 IF LB'FXM THEN 680 

670 LB = FX+li GO TO 590 

680 OPEN 4,4 

690 PRINTi4! REM PRINT THE HEADER 

700 PRINTi4,BI(0) 

710 REM THE NEXT COMMANDS SENDS CONTROL TO PROWfilTER 

715 REM OR NEC-802;; PRINTERS THRU TVMAC CONNECTION 

720 REM TO SWITCH 1 CONDENSED MODE AND WIDE LINES 

730 IF m)2 THEN PRINT#4,CHRI(27)CHRI(27)"Q"i! 

REM CONDENSED MODE FOR > 2 COL. 
740 IF NI)3 THEN PRINTI4,CHRI(27)"N"CHRI(132)i! 

REM WIDE LINES TO PREVENT CR'S 
750 REM NOW PRINT THE DIRECTORY 
760 RM = INTKJ + HD)/ WD 
770 FOR I=! TO RWi FOR W=l TO Wl 
700 IF (I + (H-l)*f:W ) ) J THEN PRINT»4,"(SPACE26}"! : 

GOTO 800 
790 PRINT»4,BI(I + (W-1)«RW )j 
800 NEXT W: PRINT*'. 
810 NEXT I 
820 PRINT#4 

830 REM SWITCH PRINTER TO NORMAL 
840 IF WI>2 THEN PRINT#4,CHRI(27)CHRI(27)"N";! 

REM IJNCONDENSEE' 
850 IF WI>3 THEM PFINT»4,CHRH27)"W"CHRI(80);i 

REM BACK TO 80 COLUMN LINE 
860 CLOSE 4 
870 GO TO 120 

880 CLOSE 15! OPEN 15,8,15 
890 OPEN 1,8,0, "10" 
900 INPUT*15,E1,E21,E3,E4 
910 IF EDO THEN PRINT "(CLEAR, D0WN10,SPACE12}"E2l! 

CLOSE l! GO TO 930 
920 RETURN 

930 GET Wli IF Wl>"" THEN 930 
940 GET Wl! IF Wl="" THEN 940 
950 SO TO 890 



Listing 2 

COOO 

0001 
002D 
00C6 
0277 
CB41 
CBBB 

COOO AD BE CB 
C003 C9 00 
COOS DO 14 
C007 A6 211 
C009 8E BD CB 
COOC A6 2E 
COOE 8E BE 
con EO 14 
CO 13 BO 15 
C015 A9 14 



R6510 

VARTAB 

NDX 

KEYt' 

MESEAG 

BFLA6 

' BASWAP 



CB 



ORG ICOOO 

EQU 101 
EBU I2D 
EQU IC6 
EQU 10277 
E&U ICB41 
EQU ICBBD 

LDA BFLAG+i 
CMP 1100 
BNE SPECL 
LDX VARTAB 
SIX BFLAG 
m VARTAB+1 
STX BFLAG+1 
CPX 120 
BCS SWAPB 
LDA «20 



ROM SWITCH 
VAR. POINTER 
KBD BF COUNT 
KBD BUFFER 
MESSAGE PRINT 
FLAG 

;1S FLAG=0' 

NO. BRANCH 
YES, 0RI6 PGM 
VAR POINTER 
SAVE IT 

!<20- 

!N0. LEAVE PNTR 

;fES, EXPAND 
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CO 17 85 2£ 


STA VAftTAB+ 


1 


Listing 3 








CO 19 DO OF 


BNE SNAPS 


! BRANCH ALWAYS 






or. n hj\'^Mj\ 




CO IB A£ BD CB 


SPECL LDX BFLAG 


;GET BACK FLAG 


0340 




ORG :(0.i40 




COIE 86 2D 


STK VARTAB 


; RESTORE PNTR 




1 






C020 AE BE CB 


LDX BFLAG+1 




0314 


CINV 


ESU 10314 




C023 86 2E 


SIX VARTAB+ 


1 


0420 


TIMDIS 


EBU 10420 




C025 A9 00 


LDA l$00 


;SET FLAG 


D020 


BORDER 


EQU ID020 




C027 8D BE CB 


STA BFLAG+1 




0286 


COLOR 


EBU 10286 




C02A A9 A7 


SWAPB LDA «*A7 


;MAKE SURE 


D418 


SIDVOL 


EBU ID418 




C02C ac 47 CO 


STA BASl+2 


;THAT ROUTINE 


D820 


DISCLR 


EBU $0820 




C02F 8D 4E CO 


STA BAS2+2 


lis SET-UP IN 


DC08 


TENTHS 


EfiU IDC08 




C032 A9 08 


LDA *m 


;CASE OF REENTRY 


DC 09 


SECS 


EQU TENTHS+1 




C034 8D 4B CO 


STA RAMl+2 




DCOA 


KINS 


EBU TENTHS+2 




C037 8D 52 CO 


STA RAM2+2 




DCOB 


HOURS 


EQU TENTHSt3 




C03A 78 


SEI 


; NON SWAP 


DCOD 


CIAINT 


EBU TENTHS+5 




C03B A5 01 


LDA R6510 






) 






C03D 29 FE 


AND IIFE 




0340 AD OD DC 


TIMIRQ 


LDA CIAINT 




C03F 85 01 


STA R6510 




0343 29 04 




AND #104 




C041 AO OB 


LDV 111 


ill BLOCKS 


0345 FO 03 




BEQ BEGIN 




C043 A2 00 


LDK mo 




0347 8D FA 03 




STA ALFLA6 




C045 BD 00 A7 


BASl LDA tmOJ 




034A AD FA 03 


BEGIN 


LDA ALFLAB 




C04S 48 


PHA 




034D FO 20 




BEQ DISTIM 




C049 BD 00 08 


RAH I LDA moo J 




034F 8D F9 03 




STA DISPFL 




C04C 9D 00 A7 


BAS2 STA $A700.'< 




0352 A5 fl2 




LDA $A2 




C04F A8 


PLA 




0354 6A 




ROR A 




C050 9D 00 08 


RAI12 STA $0800. X 




0355 6A 




ROR A 




C053 E9 


m 




0356 6A 




ROR A 




C054 DO EF 


BNE BASl 




0357 29 OC 




AND #I0C 




C056 E£ 47 CO 


INC 8AS1+2 




0359 8D 20 DO 




STA BORDER 




C059 EE 4E CO 


INC BAS2+2 




035C 29 C4 




AND «I04 




C05C EE 4B CO 


INC RAMl+2 




035E 8D 18 D4 




STA SIDVOL 




C05F EE 52 CO 


INC RAH2+2 




0361 A5 C5 




LDA $C5 




C0i2 88 


D£V 




0363 C9 C4 




CMP #104 




C063 DO EO 


BNE BASl 




0365 DO C8 




BNE DISTIH 




C065 A5 01 


LDA R6510 


! RESTORE BASIC 


0367 A2 CO 




LDX #100 




C067 09 01 


ORft mi 




0369 8E FA 03 




STX ALFLA6 




C049 85 01 


STA R6510 




036C 8E F9 03 




STX DISPFL 




C06B 58 


CLI 




036F AD F9 03 


DISTIM 


LDA DISPFL 




C06C 20 41 CB 


JSR MESSAS 




0372 FO i<0 




BEB TIHRET 




C06F 93 


BYT 193 




0374 AD OB DC 




LDA HOURS 




C070 20 20 20 


ASC • 


PRESS 


0377 AA 




TAX 




C091 12 


BYT 112 




0378 29 OF 




AND #IOF 




C082 52 45 54 


ASC 'RETURN- 




037A IB 




CLC 




C088 92 


BYT •>92 




037B 69 30 




ADC mo 




C0a9 20 54 4F 


ASC ' TO RUN' 




037D 8D 21 04 




STA TIMDiS+1 




C090 OD 43 4C 


BYT $0D,t43.*4C.»52.t0D 


0380 8A 




TXA 




C095 11 11 52 


BYT $ll,$ll,$52,$55,*4t,$91.*91.$0 


0381 10 04 




BPL LSLA 




C09D /I9 20 


LDA l$20 




0383 A2 -.0 




LDX #$10 




C09F 8D 77 02 


STA KE»D 




0385 10 02 




BPL LBLB 




C0A2 A9 20 


LDA 1120 




0387 A2 01 


LBLA 


LDX #*01 




C0A4 80 78 02 


STA KEYD+1 




0389 BE 26 04 


LBLB 


STX TIMDIS+6 




C0A7 A9 20 


LDA «$20 




038C A2 10 




LDX 1120 




C0A9 8D 79 02 


STA KEYD+2 




038E 29 JO 




AND #110 




COAC A9 13 


LDA «13 ; 


STORE SOME 


0390 FO 02 




BEB LBLC 




COAE 8D 7A 02 


STA KEYD+3 s 


STUFF IN THE 


0392 A2 31 




LDX #$31 




C081 A9 11 


LDA #111 ; 


KEYBOARD 


0394 aE 20 04 


LBLC 


STX TiHDIS 




C0B3 8D 7B 02 


STA KEYD+4 ; 


BUFFER 


0397 AD OA DC 




LDA MINS 




C0B6 A9 OD 


LDA #*0D 




039A AA 




TAX 




C0B8 8D 7C 02 


STA KE'fD+5 




0396 29 OF 




AND «IOF 




COBB A9 06 


LDA mb 




039D 69 50 




ADC #$30 




COBD 85 C6 


STA NDX 




039F 9D 24 04 




STA TIMDIS+4 




COBF 60 


RTS 

t 




03A2 8A 
03A3 4A 




TXA 
LSR A 




COCO 


END 
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Listing 3 (continue 


d) 






03A4 4A 


LSR A 


03D7 78 


THINIT SEI 


03AS 4A 


LSR A 


03D8 AD 14 03 


LDA CINV 


03A6 4A 


LSR A 


03DB A2 40 


LDX KTIHIRS 


03 A7 18 


CLC 


03DD 8D DS 03 


STA TIHRET+1 


03Afl 69 30 


ADC M30 


03E0 BE 14 03 


STX CINV 


03AA BD 23 04 


STA TIMDIS+3 


03E3 AD 15 03 


LDA CINVtl 


03AD A9 3A 


LDA t»3A 


03E6 A2 03 


LDX DTIHIRQ 


03AF SD 22 04 


STA TIHDIS+2 


03E8 8D D6 03 


STA TIHRETt2 


03B2 A9 OD 


LDA l»OD 


03EB BE 15 03 


STX CINV+1 


03B4 8D 27 04 


STA TIHDIS+7 


03EE 58 


CLI 


03B7 A2 20 


LDX tf20 


03EF 60 


RTS 


03B9 8E 25 04 


STX TIHDIS+5 




! 


03BC AD 09 DC 


LDA SECS 




iTIHE FUNCTION-TOGGLE DISPLAY 


03BF 29 01 


AND t$01 




1 ON AND OFF-ALARM REMAINS ACTIVE 


03C1 FO 03 


BEQ STCLOK 


O3F0 A9 01 


TINE LDA tlOl 


03C3 8E 22 04 


STK TIMDIS+2 


03F2 4D F9 03 


EOR DISPFL 


03C6 AD 08 DC 


STCLOK LDA TENTHS 


03F5 8D F9 03 


STA DISPFL 


03C9 AD 86 02 


LDA COLOR 


03F8 60 


RTS 


03CC A2 07 


LDX 1107 




i 


03CE 9D 20 D8 


LBLE STA DISCLR,)( 


03F9 00 


DISPFL BYT »00 


03D1 Cft 


DEX 


03FA 00 


ALFLAG BYT $00 


03D2 DO FA 


m LBLE 




1 


03D4 4C 31 EA 


TIHRET JHP *EA31 


03FB 


END 


Listing 4 


10 REH********************************* 

20 REH* ♦ 
30 REM* m* LOADER H.J.KERVAN * 
40 REH* HICRO »71 - APRIL 1984 ♦ 
50 REN* NEN FEATURES INCLUDE * 
60 REM* THE HL ROUTINES: REPEAT, * 
70 REN* DIRECT. PRINT, FORMAT PRINTER, * 
80 REH* SETS UP TIME, SUPERNON, KILL » 
90 REM********************************* 
900 IF PEEK (521591 =96 THEN BOTQ 1040 
1000 LOAD ■ D+++.HL',9,1 
1040 SYS 51200 
1050 IF A«l THEN 1150 






1100 PRINT" {CLEAR,D0NN2}NANT TO USE THE TIHER/ALARH CLOCK' 


' (Y/N)"!A=1 




1110 GET AQ*!lF AQ*=""THEN 1110 






1150 IF PEEK(2)»115 THEN GOTO 1400 






1200 PRINT" (CLEAR, D0HN2}NANT TO USE SUPERHON'sPfilNT'AND/OR FORMAT PRINTER' 




1205 PRINT"AND/OR PRINT DIRECTORY (Y/Nl" 






1210 GET AS*! IF AS$»"»THEN 1210 






1220 IF AS*»"N» THEN 1400 






1230 POKE 2,115: LOAD " FPDPSH.HL",8,1 






1400 REM******************************* 






1410 REM* * 






1420 REH* USRHELP SCREEN CALL BY * 






1430 REM* RESTORE, U OR SYS 51265 * 






1440 REH* * 






1450 REH******************************* 






1500 POKE 53280,0: POKE 53281,0 






1510 PRINT"{BREEN,CLEAR,D0HN11} {RVS}PLACE YOUR SCRI;EN HERE{RVS0FF}" | 




1520 POKE 53128,4: POKE 53131,232 






1530 SYS 53164 






1540 POKE 60392, PEEK (53280) 






1550 POKE 60393, PEEK(532811 






1560 POKE 53128,216! POKE 53131,236 






1570 SYS 53164 
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BASIC program into memory. Then 
save it to disk and get a directory listing 
[by pressing @ then $J. Muhiply the 
required number of blocks by 256, then 
subtract 1 (you should get 11x256 -1 
2815]. Next, in immediate mode, type 
the following: 

FOR I»0TO2815: fl=PEEK( 1+2048): POKE 

1+42752, A; NEXT 
(If you got a number other than 2815, 
use it above.) Now load into memory 
at $C000 the one-block machine 
language program as shown in Listing 
2. Use either an assembler, the 
monitor, or a BASIC loader that POKEs 
DATA into memory. If your required 
number of blocks was not 11, place 
your number at $C042, add nine and 
place this number at $C012 and at 
SCO 16. Then move this program to 
hidden RAM also: 

FOR I=0T0255! A=PEEK(I+49152I: POKE 
1+42496, ft! NEXT 

POKE 40991, li POKE 41023,166 

So far, we've moved the one-block boot 
program to $A600, the BASIC program 
starting at $A700, and set up table 
pointers for the left arrow function. 
Now press RESTORE, S to get into the 
monitor and type: 

.S " FPDPSH.HL",08,A000,C000 
This saves to disk the BASIC program 
as well as the other programs 
previously hidden (printer formatting 
and the monitor). 

The machine language BASIC boot 
program deserves some explanation 
(refer to Listing 2). A flag (located at 
$CBBE) is initially set to zero. If it is 
zero, then the program BASWAP 
knows that this function hasn't yet 
been activated and our hidden BASIC 
program is still hidden. If so, the 
pointers to the beginning of the 
variables table (located at $002D, 
5002E) are saved in $CBBD, $CBBE. If 
the current BASIC program is larger 
than our hidden program, everything is 
OK, but if it is smaller, then we move 
the variable pointer table up to make 
room for the new program. 

Next, the two basic programs are 
swapped [or at least the first II blocks 
of the current program is swapped in 
this example). A CLR command is 
activated; then the option is given to 
RUN the new program by pressing the 
RETURN key. This is accomplished by 
printing appropriate information on the 
screen and stuffing carriage returns into 
the keyboard buffer. A few spaces stuck 
into the buffer guard against multiple 



--FOLLQH flYi" 
(8REEN,BftCK ARROH, 



(6LACK}A 



FORHAT DISK {GREEN}F 



D(BLUE} 



Listing 4 (continued) 

1900 REH«Htt«*«tttf«ttt««tH»»«t«<rH»i 

1910 REH* 

1920 RENt HELP SCREEN CALL BY 

1930 RENt RESTORE, H OR SYS S12;!2 

1940 REH* 

19S0 REH>tt«t*fttttt«tt*tt»tttt»ti(*t*^ 

2000 POKE 53280,5; POKE 53281,1 

2010 PRINTMCLEAR} (RED,RVS}COHHAND SUNNARYCRVSOFF}" 

2020 PRINT" DOS 5.1 DOES-IT 1.2' 

2030 PRINT' " 

2040 PRINT' (BLACK) (UP ARRDM}P6H(BLUE} LOAD k RUN (6LACK}REST0RE 

(BLUE) STOP SCROLL" 
2050 PRINT'CBLACK} /P6N(BLUE} LOAD PBH' 
2060 PRINT' (BLACK} XP6H(BLUE} LOAD HL P6H 
2070 IF AS*»"N' THEN PRINT 
2075 IF AStO'N'THEN PRINT' 

BLUE) PRINT DIRECTORY" 
2080 PRINT'CBLACK} (BACK ARR0M}P6HCBLUE} SAVE P6H 

(BLUE) APPEND PGNS" 
2090 PRINT 

2100 PRINT'CBLACK} »CBLUE} LIST DIR CBLACK}B(BLUE} BACK6ND COLOR 
2110 PRINT' (BLACK}CCBLUE} CHARACTER COLORS' 

2120 PRINT'CBLACK} «NO:NAHE,ID E(BLUE} ED6E COLORS" 
2130 PRINT" FORHAT DISK" 
2135 IF AS$<>'N' THEN PRINT"(UP} 

(BLUE} FORHAT PRINTER" 
2140 PRINT'CBLACK) ^ROsNEMNH^OLDNN 
2150 PRINT' RENANE DISK CBLACK}OCBLUE} 
2160 PRINT'CBLACK} eCOtNEHPeN-OLDPGH PCBLUE) 
2170 PRINT' COPY PGH CBLACK}RCBLUE} 
2180 PRINT'CBLACK} SSOtPSM HCBLUE} 
2190 PRINT' SCRATCH PGH CBLACK}UCBLUE} 
2200 PRINT'CBLACK} 8ICBLUE} INITIALIZE" 
2205 IF AQtO'N" THEN PRINT' CUP, BLACK) 8ICBLUE) 

(BLUE) TIHER/ALftRH" 
2210 PRINT'CBLACK) fiUICBLUE) RESET CBLACK)NCBLUE) 
2220 PRINT'CBLACK) eVCBLUE) VALIDATE 
2225 IF ASIO'N' THEN PRINT" CUP,BLACK} 8VCBLUE) VALIDATE 

CBLUE) SUPERHQN" 
2230 PRINT" CBLACK) SSCBLUE) QUIT DOS 5.1 (BLACK}K(BLUE} 
2240 PRINT" (BLACK}RETURN(BLUE} CANCEL" 

2250 PRINT' (RED)PRESS (RVS)F;ETURN(RVSOFF} TO CONTINUE"; 
3000 POKE 53128,4: POKE 53131,248 
3010 SYS 53164 
3020 POKE 644e8,PEEK 153280) 
3030 POKE 64489, PEEK (53281) 
3040 POKE 53128,216: POKE 53131,2:12 
3050 SYS 53164 

3055 IF AS$="N" THEN GOTO 3060 

3056 POKE 52179,898P0KE 5221 l,207i POKE 52166,89iP0KE 52198,207: POKE 52157,0 

3057 POKE 52191,89!P0KE 52223, 207i POKE 52158,0! POKE 53123,0 
3060 IF Afi*="Y" THEN 60SUB 5000 

3065 8ETB*:IF B*»"' THEN 3065 

3066 PRINT"(CLEAR)":IF Aa*="Y" THKN 60SUB 5030 
3080 POKE 52171, 226;P0KE 52203,252 

3090 POKE 53280,6; POKE 53281, 12!P0KE 646,0 

3100 PRINT"(H0HE,D0IIN4)PRINT (FRE(O) +65535) (D0NN,LEFT12}BYTES FREE"!POKE 198,4 

3110 POKE 631,19;P0KE 632,17!PDKE 433,17:P0KE 634,17!P0KE 635,17!P0KE 636,13 

3200 NEN 

5000 FOR I»832 TO 1018:READ A;PaKE I,A:NEXT I 

5010 POKE 52180,240iPOKE 52212, 3;::YS 983 

5020 POKE 51560, 32!P0KE 51561, 215fP0KE 51562,3 

5025 RETURN 



OUHP TO PRINTER" 
PRINTER OFF" 
PRINTER ON" 
REPEAT ON/OFF" 
HELP (THIS LIST)" 
USER HELP" 

INITIALIZE (BLACK}! 



NUHBER CONVERSN.' 



CGREEN)S 



KILL ALL (RESET)" 
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RESTORE key activations which 
sometimes occur when you press this 
key. If you don't want to RUN the 
program, press the cursor down key 
instead of the RETURN key. 

To go back to the original BASIC 
program, hit RESTORE, left arrow 
again. Now the variable table pointers 
are restored (from $CBBD, $CBBE) and 
then the swap is performed again. This 
sticks our originally hidden program 
back in its hiding place and returns our 
original BASIC program to the BASIC 
workspace, unharmed. 

Time Routine 

In the December 1983 MICRO, a very 
nice machine language time/alarm 
routine was described. Unfortunately, 
this program is incompatible with 
DOES-IT' s since they both use the 
same memory area at $02A7. 
Therefore, Ian Adam's program was 
shortened and revised somewhat to tie 
it into DOES-IT. 

The re\'ised program is shown in 
Listing 3. The entire program fits into 
the cassette buffer from $0340 to 
$03FB. The changes from the original 
program are as follows: 

The RESTORE, T key sequence is used 
to toggle only the time display on and 
off. This allows the alarm to remain 
active even if the time is not displayed. 
No SYS calls are necessary. 

Only hours, minutes, and AM/PM is 
shown in the upper right comer of the 
screen. The seconds and tenths of 
seconds proved to be distracting; they 
were replaced by a blinking colon to let 
you know the clock is still ticking. 

The alarm function is nearly the same, 
except the word ALARM was left out to 
save space. Function key El turns off 
both the alarm and the display (but you 
can reactivate the display with 
RESTORE, T). 

The characters used in the time display 
always use the currently active 
character color. This assures visibility. 
A warning: never leave the time 
display on the screen when you are 
editing programs. It is very easy to 
accidently edit the current time of day 
into your BASIC programs. The time 
and alarm setting is done through the 
new DOES-IT boot program, DOS + . 

Getting It All Together 

The machine language routine DOES- 
IT. ML must be changed to incorporate 
the vectors for the Repeat and Kill 
functions from Part 3 (or the required 



Listing 4 (continued) 



5030 INPUT" (D0HN5} IS IT NOM {RVS} AH {RVSOFF} OR {RVS} PM 

(RVSOFF}"iA*:INPUT"{DOt«N} THE HOUR'iH 
5040 PRINT"{D0«N2} ENTER THE MINUTE TO START THE CLOCK" 
5050 PRINT" (DO«N}THE CLOCK liILL START «HEN YOU HIT CRVS}RETURN (RVSOFF, 

DONN) ENTER THE HINUTE'i 
5060 IF H>12 THEN A*»'P»!H=H-12!60T0 50iO 
5070 IF H>9 THEN H=H+6 
5080 IF LEFT*(A*,1)»"P" THEN H=H+128 
5090 C=56328!P0KE C+3,H!P0KE C+l,0 
5100 INPUT M!l1»M+INT(M/l0)»6 
5110 POKE Ct2,HiP0KE COiS/S 1008;PRINT" [D0WN2,RVS} IF TIME NOT OK, 

PRESS ANY KEY ' 
5120 FOR 1=1 TO 1000: IF PEEK(198) THEN POKE 198,0!SyS lOOBiGOTO 5030 
5130 NEXT 
5140 PRINT" (CLEAR, 00WN5} «HAT TIME WOULD YOU LIKE THE ALARM(DO«N}"! 

INPUT"{RVS} AM {RVSOFF} OR {RVS} PM (RVSOFF}";A* 
5150 A*=LEFTI(A*,l)!lNPUT'{DOWN} THE HOUR"!H:HH=H 
5155 IF H>12 THEN A*="P«iH=H-12!SQT0 5155 

5160 H'=H-6H;H>9)-l2a»(A*»"P")!lNPUT"{D0WH} THE MINUTE";H:MM=M!M=M+1NT(M/10)*6 
5175 POKE Ct7,l36!P0KE Ct3,H!P0KE Ct2,M!P0KE C,l;POKE C+7,e 
5180 POKE 54273, 99!P0KE 54278, 240!P0KE 54276, 2l!P0KE 542B7,2!POKE 54290,17 
5185 IF MMdO THEN PRINT"{CLEAR,D0«N2}"SPC(27-HH/9.9);HH;"(LEFT}!"! 

MM;A*"M ALARM ".'GOTO 5195 
5190 PRINT"{CLEAR,D0WN2}"SPC(27-HH/9.9);HH;"{LEFT}:"; 

RIGHTI(STRI(MMI.2>;' "A$«M ALARM" 
5195 RETURN 

6000 DATA 173, 13, 220, 41, 4, 240, 3, 141, 250, 3 
6010 DATA 173, 250, 3, 240, 32, 141, 249,, 3, 165, 162 
6020 DATA 106, 106, 106, 41, 12, 141, 32, 208, 41, 4 
6030 DATA 141, 24. 212, 165, 197, 201, 4, 208. 8, 162 
6040 DATA 0, 142, 250, 3, 142, 249, 3, 173, 249, 3 
6050 DATA 240, 96, 173, 11, 220, 170, 41, 15, 24, 105 
6060 DATA 48, 141, 33, 4, 138, 16, 4, 16:, 16, 16 
4070 DATA 2, 162, 1, 142, 38, 4, 162, 32, 41, 16 
6080 DATA 240, 2, 162, 49, 142, 32, 4, 173, 10, 220 
6090 DATA 170, 41, 15, 105, 48, 141, 36, 4, 138, 74 
6100 DATA 74, 74, 74, 24, 105, 48, 141, 35, 4, 169 
6110 DATA 58, 141, 34, 4, 169, 13, 141, 39, 4, 162 
6120 DATA 32, 142, 37, 4, 173, 9, 220, 41, 1, 240 
6130 DATA 3, 142, 34, 4, 173, 8. 220, 173, 134, 2 
6140 DATA 162, 8, 157, 31, 216, 202, 208, 250, 76, 49 
6150 DATA 234, 120, 173, 20, 3, 162, 64, 141, 213, 3 
6160 DATA 142, 20, 3, 173, 21, 3, 162, 3, 141. 214 
6170 DATA 3, 142, 21, 3, 88, 96, 169, 1. 77, 249 
6180 DATA 3, 141, 249, 3, 96, 0, 
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Figure 1. DOES-IT Help Screen 






COMM^DBSUMMARY 


DOS 5.1 




DOES- IT 


^PGM LOAD ic RUN 


RESTORE STOP SCROLL 


/PGM LOAD PGM 






y.PGM LOAD ML PGM 




—FOLLON BY: 




*■ 


PRINT DIRECTORY 


♦■PGM SAVE PGM 


A 


APPEND PGMS 


e* LIST DIR 


B 


BACKGND COLOR 




C 


CHARACTER COLORS 


@Ne:NAME,ID 


E 


EDGE COLORS 


FORMAT DISK 


F 


FORMAT PRINTER 


eR0 :NEWNM=OLDNM 


D 


DUMP TO PRINTER 


RENAME DISK 





PRINTER OFF 


ece ;NEWPGM=OLDPGM 


P 


PRINTER ON 


COPY PGM 


R 


REPEAT ON/OFF 


ese:PGM 


H 


HELP (THIS LIST) 


SCRATCH PGM 


U 


USER HELP 


ei INITIALIZE 


T 


TIMER/ALARM 


eUI RESET 


N 


NUMBER CONVERSN. 


&J VALIDATE 


S 


SUPERMGN 


@Q QUIT DOS 5. 1 


K 


KILL ALL (RESET) 




RETURN CANCEL | 


PRESS RETURN 


TO 


CONTINUE 



POKES should be included in the loader 
program). However, it is desirable to 
keep the Time function and the 
transient programs as options so we can 
bypass loading and executing them if 
we desire. Therefore the loader 
program, now called DOS + , has been 
changed; see Listing 4. 

If the machine language portion of 
DOES-IT from $C800 is not in 
memory, the loader program will load 
it (it is now called D + + + .ML) as 
shown in lines 900-1000. A SYS to 
51200 is made to initialize DOES-IT 
and the wedge. Then you are asked if 
you want the Time routine and the 
transient programs. If you answer yes 
to the second question, the 8K block 
FPDPSM.ML is loaded into hidden 
RAM at $AOOO-$BFFF, only if the flag 
(at location $0002) indicates that it is 
not yet in memory 

The HELP screen was changed to 
reflect all the additions to DOES-IT and 
will only print out those additions that 
are actually loaded into memory. A 



printout of the latest HELP screen is 
shown in Figure 1 (but it looks better 
on a color monitor) . 

If the time routine is desired, then 
lines 5000 are run, in which the current 
time and the alarm time are entered. 
Ending the program leaves the time 
display on, the program NEV/s itself, 
then prints the available free memory. 

The DOES-IT routines now consist 
of three programs that can be copied to 
copies to your other disks: DOS ^- , the 
BASIC boot program, D -t- -t- -i- .ML, the 
permanent ML programs and tables 
that load into $C800-$CFFF (this also 
contains the DOS WEDGE), and 
FPDPSM.ML, the 8K block that loads 
into hidden RAM ($A000-$BFFF]. To 
activate DOES-IT, type in LOAD 
"DOS -(-",8 then RUN. 

In general the routines are quite 
easy to use. However, entering them 
from the keyboard for the first time can 
be confusing due to the complexity of 
operations involved. For $10 (US), 
MICRO will provide the DOES-IT 



routines from the four articles in this 
series on disk, along with all the 
assembly source listings. For foreign 
requests, please send sufficient 
postage. For those hackers interested in 
adding more functions, five blocks of 
memory is unused in the hidden RAM 
from $B200-$B6FF, eight block are 
available from $E000-$E7FF, and all 
sixteen blocks are available in the 
hidden $DOOO-$DFFF area. 

micao 



ATARI 4aK * TRS C/C 32K 
COMMODORE 64 

747 FLIGHT SIMULATOR 


■■■■ EE ■■■■ 




ACTUAL SCREEN PHOTOGRAPH 

Superbly realistic Instrumentation and pilot's 
view in lifelike simulation wtiicti includes 
emergencies such as engine fires and systems 
failures. Tfiis program uses high resolution 
graphics to the full to produce the most realistic 
flight-deck display yet seen on a home 
computer. There are 21 real dials and 25 other 
indicators. Your controls operate throttle, 
ailerons, elevators, flaps, slats, spoilers, 
landing gear, reverse thrust, brakes, etc. You 
see the runway in true perspective. Uses 
joysticks and includes options to start with 
take-off or random landing approach. A real 
simulation, not just another game! Cassette 
only, S27.9S (add 6% in Calif.). Sole U.S. 
distributor (or D.A.C.C. Ltd., England. 

F. Ashton 

P.O. Box 7037 
Chula Vista, CA 92012 
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Four Techniques to Make 
YaurAssembly Programs 




by Chris Williams 



These four 6502 assembly language 
programming techniques are designed with 
one and only one consideration in mind. 
Speed. Raw, unadulterated, eyebrow-iraising 
speed. 



These techniques are applicable to 
any 6502 microcomputer. They have 
nothing whatsoever to do with graphics 
or sound or anything else that would 
require special machine-specific 
arrangements. They are meant to be 
entirely generic. In fact, the underlying 
concepts are not limited to the 6502. 
They are readily applicable to all 8-bit 
machines. 

A relentless pursuit of speed-of- 
execution is perhaps the noblest of 
activities for a programmer. While 
speed isn't the only characteristic of a 
fine program, it usually is the 
characteristic most difficult to achieve. 
As a result, when a programmer has a 
finished routine that absolutely 
screams through its task, he tends to 
grin a bit wider and finds himself a bit 
more anxious to show it off-especially 
to knowledgeable friends who will 
appreciate what they're seeing. 

So, if you're sitting there now 
nodding at the familiarity of that scene, 
and if you suspect that your routines 
could execute faster, then you'd be well 
advised to study the following 
techniques carefully... and use them! 
Writing fast programs is a skill, not a 
talent, and skills are perfected through 
practice. 

Counting Up or Counting Down 

From the perspective of speed, 
choosing to count up is the single most 
common mistake in the typical 
assembly language program. If you're 
taking notes, write this down. In 
geneml, counting up is slower than 
counting down. Watch. 

Suppose I have an application that 
requires an index to count through a 
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list of values. Here's how the typical 
program does it: 

LDY «0 ;initialije index 

LOOP LDA (LQC),Y;Qet value frao list 

STA PLACE jdo somethinq with it 

INY ! increment index 

CPy MAKVAL icheck to see if done 

BNE LOOP ;nat done, loop 

OOKE jelse, proceed 

Count the instructions. There's six, 
four for loop management, two (the 
LDA and STAj functional. That's about 
the best we can do counting up. 

Instead, let's arrange things to 
count down. 

LDY mmi (initialize inde.f 
LOOP LDA iLOC),Y;qet value <roi list 
STA PLACE jdo something with it 
DEY ; decrement index 

BNE LOOP icheck for zero to 
Hnish 
DONE ■■ ielse, proceed 

Five instructions this time. No CPY, 
which is a four-cycle instruction 
(absolute addressing) . So our loop here 
is four machine cycles faster than w' 
counting up. 

This kind of thing is always true. 
You are never better off counting up 
and checking a coimt. If MAXVAL is 
256, you can eliminate the CPY when 
counting up and achieve indentical 
speed, but MAXVAL is rarely 256. 
Count down! 

Fast Double Precision 

All 6502 microcomputers have a 64K 
memory maximum, assuming no bank 
switching. 64K is 65536 which is $FFFF 
hex. $FFFF hex cannot be represented 
by a single byte; it requires two. 
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What this all means is that any 
addressing routines you might need 
bave to be double precision (assuming 
you're looking for more than just 256 
bytes). Below is a fast, general 
technique for doing additive double- 
byte addressing. And below that is a 
special case method for doing the same 
thing even faster. 

CLC 

LDA tLOC ioet least significant byte 

ADC iVAL ;add ininediate value 

STA ILOC istore result in L.S. byte 

LDA $LflCH;get M,3. byte 

ADC *0 :add with carrv zero 

STA tLOC+!;store in M.S. bvte 

RTS 

The carry from the least significant 
Dyte operation flows into the most 
significant byte operation. This results 
in a nice, tight, double precision add. 

If #VAL is equal to 1, as it often is, 
we can get even faster. 



INC 


$LOC 


lincreitient L,S. byte 


eNE 


OUT 


;RTS unless = 0, from 
pre'/ious FF 


INC 


ILOC+1 


loverflow from L.S. byte 


OUT 


RTS 


;OUT, done 



Use Immediate Addressing 

]!n general, immediate addressing is the 
iiastest way to get a value for just about 
any purpose. In all instructions, 
immediate addressing results in a two- 
cycle operation as opposed to absolute 
addressing which bums four cycles 
doing the same thing. 

Even if the value to be used changes 
(Occasionally, you can still get away 
with immediate addressing. The byte 
in question always follows the op-code 
of the relevant instruction and, 
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therefore, has a fixed address. Simply 
write to it using absolute addressing 
when you can afford to he "slnw The 
new value will then be there the next 
time you need speed. 

Be careful when you calculate 
where to write or you'll clobber the 
program. 

Select Branches Wisely 

When you have to do a compare and 
branch, keep speed in mind when 
choosing the type of branch. For 
example: 



LOOP LDX 


LOC 




1 CPX 


ITESTVAL 




! BCC 


OUT 




BCS 


LOOP 




OUT — 


— 


{Continue 



LDK 


LOC 


CPX 


«TESTVAL 


BCS 


LOOP 



This seems fine at first glance, but 
watch what happens if you simply 
reverse the order of the branches. 



LOOP 



icontinue 

There's no need for the BCC since 
you continue execution anyway, so 
don't put it in. Keep a sharp eye out for 
this error. It seems so obvious that 
programmers tend to devote inadequate 
attention to it. 

So, those are four good ones, and I 
think that's plenty for now. Let me 
once again admonish you to practice. 
Use the techniques. Use them even 
when you don't think you need them. 
In the long nm-and for your progracas 



there should be no such thing--you'll be 
glad you did. 



Mr. Williams is a frequent contributor to 
MICRO with both articles and reviews of 
new products. He can be contacted at 1165 
E. Edgewood Dr. 10, Ogden, Utah 84403. 
Please enclose S.A.S.E. with any questions. 
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APPLICATION 
SOFTWARE 



ACCOUNTS 
PAYABLE 

$299 



ACCOUNTS 
RECEIVABLE 



GENERAL 

LEDGER 

with 

CASH 

JOURNAL 



PAYROLL 

$499 

SMALL 
BUSINESS 
^QQQ "^VENTORY 

$299 '"***** $299 

COMPLETE DOCUMENTATION $19.95 

0S9 & BASIC 09 ARE TRADEMARK OF 
MICROWARE, INC. & MOTOROLA CORP. 



SPECIALTY 
ELECTRONICS 



(405) 233-5564 
2110 W. WILLOW - ENID, OK 73701 




SOPHISTICATED TELE-COMMUNICATION IS HERE 

THE COMMUNICATOR 

for 4.0 Commodore Computers 

JIM STRASMA'S REVIEW: 
"THE BEST TERMINAL PACKAGE I'VE SEEN YET ' 

By April 1 (maybe sooner) It Will Be Even Better 



TRUE CTRL 



SPEEDS UP TO 9600 BAUD 
XON — XOFF 
KEY (we do our own keyboard 



scan) 



THE HARDWARE — A printed circuit t»ard: easily installed in the C8M. II uses 
no CBM connectors: gives a serial port with true RS232C standard. 

THE SOFTWARE — 

— Emulates the ADDS Regent 100, ADM 31 and/or the 

TeleV'Ideo 950. 1 Or choose the VT1 00 model tor use with DEC and VAX 
computers. 

— Runs coresident with BASIC programs; lets BASIC 

programs and program on host computer communicate to develop real- 
ly sojjhisticated communication and control capatxiities. 

— The program is on ROM at either address; no disk loading 

required. Uses only 51 2 tiytes of RAM; will relocate itself around any other 
macfiine language program at top of memory. 

— Will upload and download and run BASIC programs. With BASIC 

progiam wil upload and download standard data files. 100 page manual 
gives program listing for BASIC programs. 
Excellent text editor designed to work with THE COMMUNICATOR 
THE COMMUNICATOR $200 
Text Etditor $40 

1200 baud mcidems beginning at low, low $385, and even less when purchased 
with THE COMMUNICATOR 

AMPLIFY, INC. 
2325 Macbride, Iowa City, Iowa 52240 319-337-8378 

1 trademartis Adds Regent, Inc., Lear Liegler, Inc., Televideo Systems, Inc. 
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Talking to Your Printer 



Getting an electric typewriter to listen 
to a piece of fruit is not easy. If you own 
an Apple and a printer you probably 
know what we're talking about. 
Regardless of what micro and printer 
you may have you are probably familiar 
with the difficulty of getting your 
computer to talk to your printer. The 
size of this program should give you 
some idea of the scope of these 
problems. But don't despair --in order 
to use this program you are not 
committed to keying in the entire 
listing. It is an easy extract those 
elements that are useful to you and 
leave out those that are not. that are 
not. For example many people will 
never use the international style font. 
They would simply leave out the 
references to this style and the 
accompanying code. The same would 
apply to any other features you haven't 
any use for. 

During the creation of this printer 
control program many interesting and 
frustrating problems arose. Hopefully 
in examining these you will find a 
solution applicable to your own 
particular problems. 

To begin with each printer has its 
own set of printer control codes that are 
composed of a combination of Escape, 
Control and other keys, used separately 
and in conjunction with one another. 
Each printer has different control codes 



Original Program by 
Dick Buchanan, Jr. 

Text by Mark S. Mora no 



Editor's Note: The original piintei 
piogiam was written by Dick 
Buchanan for the Apple. The piogiam 
was then modified and enhanced by 
Robert T. Tripp and Maik S. Moiano. 



- why make life simple. There were a 
few codes that we did find in common, 
so these we grouped together and used 
for both the Epson and the Gemini. Of 
course this looked fine in print but we 
soon discovered that there was more to 
it than met the eye. On the Epson you 
must use Escape "WI" to turn Enlarge 
Mode on. Looking at the manual it 
seemed to be the same for the Gemini. 
We discovered that the Gemini will not 
accept the codes in the same form. It 
needed an Escape "W" CHR$(1). 
[Happily the Epson does accept the 
form needed by the Gemini). This was 
the kind of "obvious" bug that we ran 
into time and time again. 

Now to make matters more 
complicated there is the problem of 
upper versus lower case letters. The 
printers make a distinction -the Apple 
doesn't. This fact was brought to our 
attention when the printer only printed 
out a line of garbled graphics. Tracing 
through the code we found an Escape 
combined with an upper case 'L' where 
a lower case '1' should have been. 
Unfortunately, on the Apple II and II 
there aren't any lower case letters. As 
luck would have it the combination of 
Escape and upper case 'L' was used by 
the Epson to turn on the graphics 
mode. Undaunted we set omr variable 



to the ASCn numeric for lower case '1' - 
CHR$(108). This solution proved to be 
a great success, not only here but 
elsewhere. 

"iVorking with different printers we 
learned that within one machine there 
were certain modes that, when in 
operation, automatically cancelled or 
turned on other features. As additional 
styles can be obtained by using various 
combination of styles, it is important 
to know which combinations are 
compatible. Those styles that cannot 
be Lised together vary with each printer 
and should be noted so as to avoid 
unnecessary aggravation. For instance, 
wit'i the Epson, turning on the 
superscript or subscript type activates 
the double strike style, or when using 
emphasized type - condensed, 
superscript, and subscript are not 
available. Usually these peculiarities 
do not cause any problems as everyday 
pri:3ting needs are not very 
complicated. 

j\nother "detail" to be aware of is 
how^ your printer and computer are 
connected. If they are connected 
serially you should use PR#2 when 
sending an output string to the printer 
(ex: line 18). If you are using a parallel 
cable then you would use PR#3 (which 
is how we set the program up|. The 
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only problem you will encounter if you 
haven't made the right choice is that 
your printer won't hear your computer 
- rendering the program useless. 

The use of output strings gives the 
programmer greater and easier control 
in matters of ports, varying differences 
in control codes, etc. For a further 
explanation of this technique read the 
accompanying article - String Power. 



String 
Power 



Notes Toward Generic BASIC 

Concepts apply to all BASICS 
Example for Apple, Commodore, CoCo 
and Atari 

Probably the first thing everyone learns 
about BASIC is that: 

PRINT "HELLO" 

will result in the word "HELLO" being 
printed on the display. Then they go 
on to learn other ways of using the 
PRINT statement. Unfortunately, 
most of what is taught results in 
BASIC programs that are difficult to 
maintain, update, or convert to other 
micro BASICS. A program written in 
BASIC for one computer will normally 
not run on any other computer without 
some modification. This has been one 
of our greatest frustrations at MICRO. 
A good program submitted for micro X 
could be converted to ran on other 
micros, but due to the eccentricities of 
BASIC, is not worth the effort. Often 
the differences are relatively trivial and 
could be avoided entirely if the 
programmer would use a few simple 
techniques to generate more generic 
code. We took the program submitted 
by Buchanan as a sample case and 
generalized it to run on several micros. 
One of the techniques used. Output 
Strings, can help you make your BASIC 
better. 

Changing the Printer Port 

The original program was written in 
standard BASIC using simple PRINT 
statements. To output a master reset to 
to the printer, the Applesoft BASIC 
statement was: 
50 



[ 30 PRif 7: PRINT ESC$; CHR$(64J;: 
PRtfO] 

which selected port 7 as the printer 
output port, output the characters 
required to reset the Gemini printer, 
and reset the output device to the 
display. Applesoft BASIC PMNTs to 
the currently selected device. Ea<^h 
time the device is switched betwet;n 
the screen (device always] and the 
printer (connected as device 7 or this 
system) a PR# command must he 
issued. Every time output was directed 
to the printer, instead of the display, 
the PR# 7 command was issued within 
the print statement line. Changing tlie 
printer port would require changing 
every one of these print lines within 
the program! That is a lot of work. And, 
miss just one and your system will 
probably 'hang'. If there was some way 
to have the printer port defined only 
once in the program, then changing the 
printer port would only require 
changing one reference. There is a way. 
If every set of information that is 
destined for the printer is turned into 
an output string, then a subroutine that 
will handle the output string can be 
called whenever output is required. 
The statement: 

[ OS$ = ESC$ + CHR(64) ] 

defines a string variable OS$ tt.at 
contains the two characters required 
for a master reset. This string is output 
to the printer via a short subroutine: 

[ 18 PR# 7: PRINT OS$;: PRff 0: 
RETURN ] 

and is called as: 

[30 OS$ = ESC$ + CHR(64): GOSUB 
18] 

Every time the subroutine at line 18 is 
called, it selects port 7 for output, 
outputs the current value of the OSS 
string, resets the output port to the 
screen, and returns. All of tbe 
statements in the original program that 
generated output to the printer were 
rewritten as output strings, using the 
string variable OS$, and calling 
subroutine at line 18 for the actual 
output. Now, if the printer is changed 
to port 2, then only this single line has 
to be changed. It is changed to: 

[ 18 PR» 2: PRINT OS$;: PR§ 0: 
RETURN ] 

It is obviously much easier to charige 
the printer port when only one line 
needs to be changed. This makes the 
program a lot easier to use, maintain 
and update. Output strings are defir.ed 
within many of the 'working' lines of 
the program. The basic printer control 
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strings for the Gemini are defined in 
lines 9100 through 9183, plus lines 
9820 through 9890. 

Changing Printers 

The output string technique also 
allows us to change printers. The 
original program was written only for 
the Gemini. To change the original 
code to support the Epson, or any other 
printer, would have required searching 
out every direct PR# 7 statement and 
changing those that were different for 
the Epson. Since we rewrote the 
program to use output strings instead, 
all that was required was to redefine 
those printer control strings that were 
different between the Gemini and the 
Epson. This is taken care of in the lines 
9500 through 9583, plus lines 9000 to 
9019 that allow us to choose between 
the Gemini and Epson at run time. 
Note that the Gemini and Epson people 
were considerate and defined many of 
the strings to be identical on the two 
printers. All of the definition strings in 
lines 9820 through 9850 are the same 
for these two popular printers, 

If you wanted to modify this 
program for another printer, all that is 
required is to redefine these strings. No 
other program modifications should be 
required. If you want to key the 
program in for only the Gemini or the 
Epson, then the lines specific to the 
printer that you are not using may be 
omitted. 

Changing Micros 

The output string technique makes 
going to another micro easier. The OSS 
string is defined in the exact same way, 
but the output subroutine is changed to 
fit the requirements of the new micro. 
In FLEX BASIC, on our FOCUS or a 
CoCo, the print subroutine is: 

I 18 PRINT #l,OS$;: RETURN] 

On a Commodore 64 it would be: 

[ 18 PRINT# 4,OS$;: RETURN] 

These two BASIC implementations are 
quite different from the Applesoft 
BASIC since they specify the printer 
port as part of the PRINT command, 
rather than changing the printer port. 

On an Atari it would be: 

xxxxxxxx 

See the micro specific listings at the 
end of the main program listing for the 
details on using one of these micros 
with this program. 
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Summary 

The concept of using an output string 
instead of immediate printer 
commands has been discussed, and it 
has been shown that this technique can 



make your BASIC program more 
flexible. In the particular example, it 
made it easier to change printer port, to 
change type of printer, and, to change 
micro. This is but one of a number of 
techniques that can be used to make 



your BASIC more genetic. Other 
techniques will be described in 
additional articles on this subject. If 
you have discovered other techniques, 
we \rould like to hear about them. 



Listing 1 


211 OS* ' OS* * CS* * CQ* * C2* * CO* * DS* * CR* 




1 REH PRINTER FORHAT PROBRAH 


212 DS* = OS* + RS* + R[:* + CQ* + LS* + LC* + CR* 




2 REH ORIGINAL APPLE/6EHINI 10 VERSION 


213 OS* = OS* + D2* + Cfl* + LF* + " " + LT* + "/" + 




3 REH BY DICK BUCHANAN 


LB* * CHR* (34) * CR* 




4 REH HODIFIED BY R. H. TRIPP 


214 DS* = OS* + PL* + FS* + CB* + PN* + Fl* + CHR* 




5 REH FOR GENERAL HICROCOHPUTERS AND 


(34) * CQ* 




b REH THE EPSON PRINTER 


215 OS* = OS* + HL* + F2* + CQ* + BL* + F3* + CR* 




13 REH HICRO - HARCH 19S4 - m 


220 RETURN 




14 REH 


299 REH DISPLAY PRESENT VALUES 




15 G0SU6 mi: REH SYSTEH INITIALIATION 


300 CB* = ', ': GOSUB 210: GOTO 18: 




lb GOSUB mil GOTO 30: 


REH OUTPUT TO PRINTER 




REH PRINTER INITIALIZATION 


400 CO* = CR*: GOSUB 205: GOSUB 19: GOTO 21: 




uuuuuuuuuuuuuuttuutuu 


REH OUTPUT TO DISPLAY 




t t 


1000 REH FONT STYLE 




t Hicrocoiputer Specific Code to t 


1005 GOSUB 20 




t Service Input/Output Hust Be t 


1010 OS* =: ' 1) SELECT STANDARD ASCII' ^ CR* 




t Entered Here. See Hodules at End 1 


1011 OS* = OS* + • 2) SELECT ITALIC + CR* 




t t 


1012 OS* = OS* + " 3) SELECT INTERNATIONAL' + CR«: 




mmmmmmmmmmmmm 


GOSUB 19 




30 0S« = HR« * HS«! GOSUB 18; 


1040 OS* ' SN*: GOSUB 19: GOSUB 21: 




REH OUTPUT TO PRINTER 


IF N* = " THEN RETURN 




50 GOSUB 20 


1045 IF N* < '1' OR N* > "3' THEN 1040 




51 OS* = " A) FONT STYLE CONTROLS' + CR*: 


1050 IF N* = '1' THEN OS* ' IK*: GOSUB 18: 




GOSUe 19 


AA* » 'STANDARD ASCII': RETURN 




52 OS* = • B) FONT PITCH CONTROLS' + CR*: 


1060 IF N* » '2' THEN OS* ' IN*: GOSUB 18: 




GOSUB 19 


AA* ' "ITALIC PRINT': RETURN 




53 OS* = ' C) SPECIAL PRINT HODES' + CR*: 


1070 IF N* < > '3' THEN 1080 




GOSUB 19 


1071 GOSUB 20:OS* » 'INTERNATIONAL FONTS' * CR*; 




54 DS* ' ' D) SPECIAL PRINT EFFECTS' + CR*: 


GOSUB 19 




GOSUB 19 


1072 FOR 1 = TO A)(: 




55 OS* = ■ E) LINE FEED CONTROLS' + CR*: GOSUB 19 


OS* = CHR* (I + 48) + ' = ' + AK*(1) + CR* 




5i OS* = ' F) FDRH FEED CONTROLS' + CR*: GOSUB 19 


1073 GOSUB 19: NEH I 




57 OS* = ' G) VERTICAL TABS' + CR*; GOSUB 19 


1075 OS* ' SN*: GOSUB 19; GOSUB 21: 




58 OS* = ' H) HORIZONTAL CONTROLS' + CR*: 


IF N* » " THEN RETURN 




GOSUB 19 


1080 IF N* < '0' OR N* > CHR* (AK * 48) THEN 1075 




59 OS* » ' I) INITIALIZE PRINTER RESET' + CR*: 


1090 AA* > Al(t( VAL (N*)) 




GOSUB 19 


1100 OS* ' SI*^ CHR* ( VAL (N*)); GOSUB 18: 




60 OS* = ' J) PRINT PRESENT PARAHETERS' * CR*: 


RETURN 




GOSUB 19 


2000 REH FONT PITCH 




il OS* = ' K) 


2005 GOSUB 20 




DISPLAY PRESENT PARAHETERS" * CR* * CR*: 


2010 OS* = ' 1) SET PICA STANDARD (' + P)(* + ") 




GOSUB 19 


' + CR* 




i3 OS* = " )() TO EKIT' + CR*: GOSUB 19 


2011 OS* = OS* + ' 2) 




65 OS* = CR*: GOSUB 19 


SET ELITE STANDARD (' + EH* + ')' + CR* 




70 OS* = SN*: GOSUB 19; GOSUB 21 


2012 OS* = OS* + ' 3) 




75 IF N* = " THEN 70 


SET CONDENSED r + CK* + ')' + CR* 




80 IF N* = 'V THEN END 


2013 OS* = OS* + ' 4) 




90 N - ASC (N*) - ASC ('9'): 


SET ENLARGED i" + EN* + ')' + CR* 




IF N < 1 OR N > 11 THEN 70 


2014 OS* = OS* + ' 5) CAMCEL ENLARGED HODE' * CR(: 




100 ON N GOSUB 1000,2000,3000,4000,5000,6000,7000, 


GOSUB 19 




8000,30,300,400 


2050 OS* ' SN*: GOSUB 19: GOSUB 21: 




110 GOTO 50 


IF N* = " THEN RETURN 




200 REH PRESENT VALUES 


2060 IF N* < "1' OR N* )■ "5' THEN 2050 




205 GOSUB 20 


2065 ON VAL (N*) GOTO ;!110,2120,2130,2140,2150 




210 OS* = AA* + ' ■ + BS* + CQ* + B3* + CB* + A2* + 


2110 OS* = PF* + ES* + CHR* (81) + PC*; GOSUB IB: 




PT* + CR* 


PT* = PK* 
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2111 RC* = PMiBS* = 'PICA"! RETURN 

2120 DS( = EF$ * ES( * CHR( (81) * EC$: 60SUB 18: 
PT$ = EX$ 

2121 RC« ' EC$!BS« = 'ELITE": RETURN 

2130 OSt = CF$ * ES( * CHR$ (Bl) * CCti 6DSU6 18: 
PT$ = CX« 

2131 RC$ > CC$:BS$ » 'CONDENSED': RETURN 

2140 DS« = En$: 60SUB lBiB3« » 'ENLARGED': RETURN 
2150 OSt = EY«: 6DSUB 1B:B3$ ' 'NON-ENLARGED": 

RETURN 
3000 REN SPECIAL PRINT 
3005 GDSUG 20 

3010 DS$ = ' 1) DOUBLE STRIKE PRINT' * CR$ 

3011 0S$ > DS( + ' 2) CANCEL DOUBLE STRIKE' * CRI 

3012 0S$ = DS$ + " 3) EMPHASIZED NODE" + CR$ 

3013 0S« = OS* t ' 4) 

CANCEL EMPHASIZED NODE' * CR« * CR« 
3050 G0SU6 19 
30&0 OS* = SN*: 60SUB 19: 6DSU6 21: 

IF N* = " THEN RETURN 
3070 IF N« < '1' OR N* > '4' THEN 3060 
3090 ON VAL (Nl) GOTO 3110,3120,3130,3140 
3110 est = 'DOUBLE STRIKE':OS* = SD«: 60SUB IB: 

GOTO 3005 
3120 CS* ' 'NON-DOUBLE STRIKE':OS« ' CD*: 6DSUB IB: 

GOTO 3005 
3130 C2* = 'ENPHASIZED'iOS* >= SE(: GOSUB IB: 

GOTO 3005 
3140 C2* = 'NON-ENPHASIZED':OS* = CE*: GOSUB IB: 

GOTO 3005 
4000 REN SPECIAL EFFECTS 
4005 GOSUB 20 

4010 OS* = ' 1) UNDERLINE CHARACTERS' * CR* 

4011 OS* = OS* + ' 2) CANCEL UNDERLINE' * CR* 

4012 OS* = OS* * ' 3) SUPERSCRIPT NODE' + CR* 

4013 OS* = OS* + " 4) SUBSCRIPT NODE" + CR* 

4014 OS* = OS* + * 5) 

CANCEL SUPER/SUBSCRIPT NODE" + CR* 

4015 OS* = OS* + * 6) UNI-DIRECTIONAL NODE' * CR* 

4016 OS* = OS* + • 7) 
BI-DIRECTIONAL NODE* + CR* + CR* 

4080 GOSUB 19 

4090 OS* = SN*: GOSUB 19: GOSUB 21: 

IF N* = " THEN RETURN 
4100 IF N* < 'l* OR N* > '7" THEN 4090 
4106 N = VAL (N*): 

ON N GOTO 4110,4120,4130,4140,4150,4160,4170 
4110 OS* =: UN*: GOSUB 18: GOTO 4005 
4120 OS* = UF*: GOSUB 18: GOTO 4005 
4130 DS* = 'SUPERSCRIPT HODE':OS* " SS*: BOSUB IB: 

GOTO 4005 
4140 DS* = 'SUBSCRIPT NODE';DS* = SB*: GOSUB IB: 

GOTO 4005 
4150 DS* = 'NORHAL nODE':OS* = SF*: BOSUB IB: 

SOTO 4005 
4160 D2* = 'UNI-DIRECTIONAL nODE':OS* = UD*: 

GOSUB IB: GOTO 4005 
4170 D2* = 'BI-DIRECTIONAL NODE':OS* = BD*: 

GOSUB IB: GOTO 4005 
5000 REN LINE FEED CONTROLS 
5005 GOSUB 20 

5010 OS* » ' 1) SET LF ID 9/72 (1/B) INCH' + CR* 

5011 OS* = OS* + • 2) SET LF TD 7/72 INCH' + CR* 



5012 OS* » OS* + " 3) SET LF TO 12/72 11/6) 
INCH' + CR* 

5013 OS* = OS* + ' 4) 

SET LF TO N/72 INCH (N=l TO 127)' + CR* 

5014 OS* = OS* i ' 5) 

SET LF TO N/' + HH« + " INCH IN=1 TO 127) 

• + CR* + CR* 
5160 BOSUB 19 

5070 OS* = SN*: GOSUB 19: GOSUB 21: 

IF N* = " THEN RETURN 
5060 IF N* < '1' OR N« > '5' THEN 5070 
5100 N = VAL IN*): 

ON N GOTO 5110,5120,5130,5140,5140 
5110 LT* = 'I'sLB* = '8":0S« = L0*: GOTO IB 
5120 LT* = '7':LB* = '72'iOS* = LI*: GOTO IB 
5130 LT* = 'I'iLB* = '6":0S* = L2*: GOTO IB 
5140 INPUT 'ENTER N (1-127): ")P* 
5142 IF VAL (P*) < 1 OR VAL (P*) 

> 127 THEN GOTO 5140 
5145 IF VAL (P*) > OR VAL (P«) 

< 128 THEN LT* ' ?%: ON N-3 GOTO 5160,5170 
5160 LB* = '72';OS* = L3* + CHR* ( VAL (P*)): 

GOTO IB 
5170 LB* = Hn*:OS* - L4* + CHR* ( VAL (P*)); 

GOTO 18 
6000 REN FORH FEED CONTROLS 
6005 GOSUB 20 

6010 OS* = ' 1) SET LINES PER PAGE (1-127)' * CR* 

6011 OS* « DS* t " 2) 

SET PAGE LENGTH IN INCHES (1-32)' + CR* 

6012 OS* ' OS* * ' 3) SET HEADER LINE' * CR* 

6013 OS* - OS* t ' (FIRST LINE PRINTED, 1-16) 

• + CR* 

6014 OS* = OS* t " 4) 

SET NAKINUH LINES FRON BOTTON OF' * CR* 

6015 DS* = OSI + ' THE PAGE (1-127)' + CR* 

6016 OS* < OS* * ' 5) 

CANCEL LINES FRON BOTTON SETTING' + CR* + CR* 
6060 GOSUB 19 
6070 DS* - SN*: GOSUB 19: GOSUB 21: 

IF N* « "' THEN RETURN 
6080 IF N* < '1" OR N* > '5' THEN 6070 
6090 N = VAL (N*): 

ON N GOTO 6110,6120,6130,6140,6150 

6110 INPUT 'IINTER LLP (1-127): 'jP* 

6111 IF VAL (P*) < 1 OR VAL (P*) > 127 THEN 6110 
6115 FS* = P*:OS* = FL* + CHR* ( VAL (P*)); 

GOSUB IB: GOTO 6005 
6120 INPUT 'l-NTER PL (1-32); ')P*: 

IF VAL 1P«) < 1 OR VAL (P*) > 32 THEN 6120 
6125 Fit ' P*iOS* = FI* + CHR* ( VAL (P*)); 

GDSUB IBs GOTO 6005 
6130 INPUT 'ENTER HL (1-16): 'jP*: 

IF VAL IP*) < 1 OR VAL (P*) > 16 THEN 6130 
6135 F2* = P*:OS* = HD« + CHR* ( VAL (P*)): 

GDSUB IB; GOTO 6005 

6140 INPUT 'ENTER LFB (1-127): ';P* 

6141 IF VAL IP*) < 1 OR VAL (P*) > 127 THEN 6140 
6145 F3« = P*:OS* « SO* + CHR* ( VAL (P*)): 

GDSUB IBi GOTO 6005 
6150 OS* < SX*: GOSUB 18; GOTO 6005 
7000 REN VERTICAL TABS 
7005 GOSUB 20 
7010 OS* = ' 1) ADVANCE TD NEXT TAB' * CR* 
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7011 OSI = OSI + • (6,12,18 60 STANDARD) 


9107 AX* (5) « 'SWEDEN" 




■ + CRI 


9108 AX*(6) = 'ITALY" 




7012 OS* = OS* + • 2) 


9109 AX*(7) ' 'SPAIN' 




SET NEK VERTICAL TAB POSITIONS" t CR* 


9110 AX = 7: REM NUMBER OF COUNTRIES 


s 
p 

E 


7013 OS* = OS* + • iHAKIHUH OF 2»)' +CR* 


9120 REM GEMINI COMMAND STRINGS 


70 U OS* = DSt * CR* ^ CR* 


9131 SI* = ES* + '7" 


C 


7040 GOSUB 19 


9140 PF* = ES* + "B" <■ CHR* (l)i REM PICA MODE 


1 


7050 OS* = SN*: GOSUB 19; GOSUB 21: 


9150 EF* s ES* + 'B' ^- CHR* (2): REM ELITE MODE 


F 


IF N* = "■ THEN RETURN 


9160 CF* s ES* + 'B' <' CHR* (3); 


1 
r 


7060 IF N* = "l- THEN OS* = VT*: GOSUB 18: 


REM CONDENSED MODE 


\^ 


GOTO 7005 


9170 SS* « ES* + "S" <' CHR* (0); 


C 


7065 J = 0: IF N* < > ■2" THEN 7050 


REM SUPERSCRIPT MODE 





7070 INPUT -ENTER TAB: ■iT*(J + 1):J = J + 1 


9171 SB* = ES* + 'S" i CHR* (1): 


D 


7075 INPUT -SET NEKT TAB (Y/N): 'jP*: 


REM SUBSCRIPT MODE 


E 


IF LEFT* (P*,l) = 'V THEN 7070 


9180 SL* » ES* + 'H"; REM SET LEFT MARGIN 




7080 OS* = SV*: OS* = TS*: FOR I = 1 TO Js 


9181 SV* = ES* + 'P': REM SET VERTICAL TAB 




OS* ' OS* ^ CHR*(VAL (T*(I))):NE]IT:GOSUB 18 


9182 SR* = ES* + 'B': REM RIGHT MARGIN 




7085 FOR I = 1 TO J; 


9183 HM* ' '144'; REM HIGH DENSITY LINES 




OS* ' OS* * CHR* i VAL (T*(I)))i NEU 


9300 GOTO 9800 




7090 OS* = OS* * CHR* 10): GOSUB 18: GOTO 7005 


9500 REM EPSON CHAilACTER SET STRINGS 




8000 m HORIZONTAL CONTROLS 


9501 DIM AX*(9) 




8005 GDSUB 20 


9502 AX*(0) = 'USA' 




8010 DS* » ■ 1) SEND CARRIAGE RETURN' * CR* 


9503 AX*(1) ' 'FRANCE" 




8011 OS* = OS* + ■ 2) SET LEFT MARGIN' + CR* 


9504 AX* (2) = 'GERMANY ' 




8012 OS* = OS* + ' 3) SET RIGHT MARGIN' + CR* 


9505 AX* (3) ' 'ENGLANH' 




8013 OS* = OS* + • 4) 


9506 AX* (4) = 'DENMARK* 




HOVE TO NEU HORIZONTAL TAB' + CR* 


9507 AX* (5) = 'SNEDEN" 




8014 OS* = OS* + ' (10,20,30, 


9508 AX* (6) = 'ITALY' 




...SET STANDARD' * CR* 


9509 AX«I7) = 'SPAIN' 




8015 OS* = OS* + CR* + ' 5) 


9510 AX* (8) = 'JAPAN' 


E 


SET NEW TAB POSITIONS' + CR* + CR* 


9511 AX = 8; REM NUMEiER OF COUNTRIES 


P 


8070 GOSUB 19 


9520 REM EPSON COMMAND STRINGS 


S 

N 


8080 OS* ' SN*; GOSUB 19: GOSUB 21: 


9531 SI* = ES* + 'R': REN SET INTERNATIONAL 


IF N* = " THEN RETURN 


9540 PF* = ES* + 'P'; REM PICA MODE 




8090 IF N« < '1' OR N* > '5' THEN 8080 


9550 EF* = ES* + 'H'; REM ELITE MODE 


S 


8100 ON VAL (N*) GOTO 8110,8120,8130,8140,8150 


9560 CF* = CHR* (15): REM CONDENSED MODE 


P 

c 


8110 OS* ' CR*: GOSUB 18: GOTO 8005 


9570 SS* » ES* + 'S' i CHR* (1): 


C 


8120 INPUT 'ENTER LEFT MARGIN: ';P*:LC* = P*: 


REM SUPERSCRIPT MODE 


1 


OS* = SL* * CHR* ( VAL (P*)) 


9571 SB* » ES* + 'S' i CHR* (0): 


F 


8125 GOSUB 18; GOTO 8005 


REM SUBSCRIPT MODE 


1 


8130 INPUT 'ENTER RIGHT MARGIN: ';P*:RC* = P*; 


9580 SL* = ES* * CHR* (108): REM SET LEFT MARGIN 


C 


OS* = SR* ^ CHR* ( VAL (P*)) 


9581 SV* = ES* + 'B': REM SET VERTICAL TAB 


C 


8135 GOSUB 18: GOTO 8005 


9582 HM* = '216': REM HIGH DENSITY LINE MODE 





8140 OS* = CHR* (9): GOSUB 18: GOTO 8005 


9583 SR* = ES* * 'O" : REM RIGHT MARGIN 


D 


8150 J = 


9B00 REM STANDARD STRINGS 


E 


8155 INPUT "ENTER TAB: •5T*(J + 1):J = J + 1: 


9801 AA* = "STANDARD flSCII';A2* = "FONT PITCH IS " 




8160 INPUT ' SET NEXT TAB (Y/N); "jP*: 


9802 BS* = 'PICA';PT* = "10 CPI/80 CPL" 




IF LEFT* (P*,l) = "Y' THEN 8155 


9803 B3* = 'NON-ENLAREED':CS* = "NON-DOUBLE STRIKE' 




8165 OS* = TS*; FOR I = 1 TO J: 


9804 C2* ' 'NON-EMPHASIZED':RC* = "80';LC* = '1' 




OS* = OS* + CHR* ( VAL (T*(I))): NEXT 


9805 RS* = 'RIGHT MARE IN SET TO ': 




8170 OS* ' OS* * CHR* (0): GOSUB 18; 60TD 8005 


DS* ' 'NORMAL MOUE' 




8999 REM INITIALIZATION 


9806 LS* = 'LEFT MARGIN SET TO ';LT* = '1": 




9000 REM APPLE VERSION 


LB* ' '6" 




9010 GOSUB 20: INPUT 'GEMINI OR EPSON EG/E]; ';TY* 


9807 D2* = 'BI-DIRECTIONAL MODE'; 




9011 IF TY* = 'G' THEN TY = 1; GOTO 9100 


LF* = 'LINE FEED IS' 




9012 IF TY* = "E' THEN TY = 2; GOTO 9500 


9808 PL* = "LLP= •;PN« = 'PL= ':HL* « 'HL= ": 




9019 GOTO 9010 


BL* = 'LFB= ' 




9100 REM GEMINI CHARACTER SET STRINGS 




9809 FS* » '66';F1* = 'll':F2* « '1":F3* = '0" _ 




9101 DIM mm 


G 


9819 REM 




9102 A)(*(0) = 'USA' 


E 

M 


9820 REM COMMON COMMND STRINGS - GEMINI AND 




9103 AUd) = 'ENGLAND' 


In 
1 


EPSON 




9104 A)(«(2) = 'GERMANY- 


N 


9821 MR* = ES* * CHR* (64): REM MASTER RESET 




9105 AX* (3) = 'DENMARK' 


1 


9822 SR* « ES* * 'S' ^ CHR* (80): 




9106 AX* (4) = 'FRANCE' 




REM SET RIGHT MARGIN 80 
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modules 


9823 IN$ = ES$ + "4"! REN ITALIC ON 






9824 Ui = ES$ + "5"! REN ITALIC OFF 






9825 EN« - ES« + "«" + CHRIIl) : 






REN ENLAR6ED NODE ON 




Subroutines lor Apple II 


9826 EY« = ES« + "H" + CHR$(0) i 






REN ENLARGED NODE OFF 






9827 IJN« " ESI * CHR«(-1) : REN UNDERLINE NODE ON 




18 PRI 7;PRIHT OSt;:PRI 0:RETURN: REN OUTPUT TO PRINTER 


9828 UF« = Est * CHR«(-0) : REN UNDERLINE NODE OFF 




19 PRINT OStiiRETURN: REN OUTPUT TO DISPLAY 


9829 NH« = ES« + "T": REH TURN SCRIPT NODE OFF 




20 HONE: RETURN: REN HONE CONNAND 


9830 UDt = Est + "U" * CHRKl) i 


E 


21 INPUT Nt: RETURN 


REN UNI-DIRECTIONAL NODE 
9831 BD» = ESt + "U" + CHR»(«) i 


P 
S 




n 




REN BI-DIRECTIDNAL NODE 


N 




9832 LBt = Est + '»': REN 1/8 INCH LINE SPACE 






9833 Lit = ESt + "1"! REN 7/72 INCH LINE SPACE 


& 


Subroutines for FLEX used on Color Coiputer 


9834 L2t = ESt + "2"; REN 1/6 INCH LINE SPACE 






9835 L3t ' ESt + "A": REN 11/72 INCH LINE SPACE 


G 


18 PRINT 10, DSt:: RETURN: REN OUTPUT TO PRINTER 


9836 L4t = ESt + "3": 


E 
M 

1 


19 PRINT OS!tj:RETURN: REN OUTPUT TO DISPLAY 


REN K/144 GENINI, K/216 EPSON 


20 PRINT CHItt(12);;RETURNi REN CLEAR SCREEN 


9837 FLt = ESt + "C": REN FORN LINES 


N 


21 INPUT 10, Nt: RETURN 


9838 Fit = ESt + "C" + CHRt («); 


1 




REN FORN LEN6TH IN INCHES 






9839 sot = ESt + "N": REN SKIP OVER PERFORATION 




9910 OPEN "II. PRINT. SYS" AS 0: REN OPEN PRINTER DEVICE 


9840 SKt = ESt + "0": REN TURN SKIP OVER OFF 






9841 VTt = CHRt (11); REN EXECUTE VERTICAL TAB 






9842 SRt = ESt + "D": REN SET RIBHT NARGIN 






9843 TSt = ESt + "D"! REN HORIZONTAL TAB SET 






9844 SEt = ESt + "E": REN SET ENPHASIZED NODE 




Subroutines for FLEX used on FOCUS 


9845 CEt = ESt + "F": REN CLEAR ENPHASIZED NODE 






9846 SDt = ESt * "6": REN SET DOUBLE STRIKE NODE 




18 PRINT l0,OSti:RETURN: REN OUTPUT TO PRINTER 


9847 CDt = ESt + "H"! REN CLEAR DOUBLE STRIKE NODE 




19 PRINT OSti:RETURN; REN OUTPUT TO DISPLAY 


9850 HDt = ESt + "R"; REN HEADER LINE 




20 PRINT CH«t(ll)iCHRt (24);: RETURN :REN CLEAR SCREEN 


9B90 RETURN 




21 INPUT 10, Nt: RETURN 


9899 REN 






9900 REN SYSTEN SPECIFIC STUFF 




9910 OPEN "J. PARALLEL. CND" AS 


9905 ESt = CHRt (27): REN ESCAPE CODE 






9906 CRt = CHRt (13): 

REN CARRIAGE RETURN/LINEFEED —^ 








9907 SNt = CRt + "SELECT:": REN SELECT MESSAGE 




mtmmmmtmmmmmmtmt 
1 t 


Subroutines for CoHodore 64/VIC-20 


1 Printer Initialization Code, H t 


18 PRINT! l,OStj:RETURN: REN OUTPUT TO PRINTER 


1 Required, Nust Be Entered Here. t 


19 PRINT OSt;:RETURN: REN OUTPUT TO DISPLAY 


t t 


20 PRINT (CLEAR};: RETURN :REN CLEAR SCREEN 


UtltlltlllllltttlttllttttttttlllttllUI 


21 INPUT NtrRETURN 


tlllllltltlttlllllllKllltllttllltllllllt 




t t 


9910 CLOSE 1:0PEN 1,4: REN OPEN PRINTER PORT 


1 The foIloNing stateients should be t 




t altered according to your printer, t 
t As He had an 8 inch printer tie set 1 






t 10 CPI/80 CPL (line 9912-9917) t 




1 1 

tmnnnmnmmmnnmmmmt 


Subroutine for the Atari 


9911 PKt = "10 CPI/80 CPL" 

9912 PC = B0: REN CHARACTERS PER LINE 

9913 EXt = "12 CPI/96 CPL" 

9914 EC = 96: REN CHARACTERS PER LINE 

9915 cut = "17 CPI/136 CPL" 

9916 CC = 136: REN CHARACTERS PER LINE 


Unfortunately this prograi could not be adapted to the 
Atari. The problem arose in the output strings that had 
to be concatenated. Biven how laboriously Atari handles 
concatenation and how often it would have to be used in 
this prograA, conversion was lade virtually iipossible. 


9917 ENt = "5, 6, 8.5 CPI" 


iMQRO 


9920 RETURN 
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HI'RES SCREEN DUMP 

for the 
EPSON MX-80 



by Robert D. Walker 



A machine language subroutine for dumping high 
resolution Apple II graphics to the Epson MX-80 
printer which allows choice of screen dump size. 



Requirements: 

Apple II with 48K 
Epson MX-80 equipped with 
Graftrax 

8 bit parallel interface 



In the February 1983 issue of MICRO I 
published a short article which 
included an Apple Pascal program for 
printing the Apple II HiRes 
(abbreviation for high resolution) 



graphics with the Epson MX-80 
equipped with the Graftrax option. For 
(hose with a parallel interface capable 
of sending 8 bits, this program worked 
flawlessly, but slowly. Let's face it, the 
i'^pple p-code interpreter is generally 
faster than BASIC, but it is not 
exceptionally fast. In addition, one 
must realize that the entire HiRes 
screen contains 53,760 pixels. Each 
pixel must be processed individually, 
this accounting for the slow execution 
cf this program. 

In this article I have included a fast 
768 byte machine language subroutine 
v^hich dumps the HiRes screen to the 
Epson MX-80. In addition to the usual 
dot-for-dot format (see figure 1), I have 
i:3cluded an optional format for 
creating an expanded printout (see 
figure 2). Careful examination of figure 
2 will reveal that each screen pixel is 
printed as a two by two dot matrix. 

To demonstrate the method of 
calling this machine language 
subroutine from your own BASIC 
program, I have included a useful 



Figure 2 Expanded Size Screen Dump 



Figure 1 Normai Size Screen Dump 



,t.iii;! s!...,i ,i,„'Ei'' '''ii,i„'L 
,i,.. ,.,1,1 „,;» ,„i,., IS lui^; .".rt!,"' ;: ,; „„ !,s 
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Tabie 1 








Screen Dump Memory Locations 




Location 


Location 




Default 


Hex 


Dec 


Explanation 


Value 


$9300 


37632 


call this location to dunnp the screen nornnal size 




$9303 


37636 


call this location to dump the screen expanded 
size 




$9306 


37638 


screen page, for HiRes 

page 1 use $20 (32), for page 2 use $40 (63) 


32 


$9307 


37639 


left column of screen area to be dumped DIV 7 





$9308 


37640 


right column of screen area to be dumped DIV 7 


39 


$9309 


37641 


top row of screen area to be dumped DIV 8 





$930A 


37642 


bottom row of screen area to be dumped DIV 8 


23 


$930B 


37643 


number of spaces in left margin of normal size 








dump 


16 


$930C 


37644 


number of spaces in left margin of expanded size 








dump 


10 


$930 D 


37645 


byte exclusive-ored with image, = normal image, 








255 = reversed image. 
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Listing 2 
y REM ttUttUttUtttttttltfttttlttttltttlttt 

REH I 

APPLE II -> EPSON I1^8^ 
HIRES SCREEN DliUP 



REH I PROGRAH: 
REM I 



REH I 

REH « AUTHOR: 



11 
12 
13 
14 
15 
la 
17 
1? 
20 
21 

m 

lia D$ = CHR$ (4) 
120 PRINT D$;"BLOhD 
130 SC = 32: REH 
0: REH 
279; REH 
0: REH 
191: REH 
16: REH 
10: REH 



ROBERT D. «ALKER 
MARIETTA. 8A 



REH I 
REH » 
REH » 

REH tittitttuitittttttttttuttiittiittttn 

REH II INITIALIZE II 
HIHEH: 37631 



140 LC 
150 RC 
160 TR 
170 BR 
1S0 LI 
190 L2 
200 IH 
210 
220 
230 
240 
250 
260 



DBJ.DUflP,A$9303" 

SCREEN PAGE 

LEFT SCREEN COLUHN 

RIGHT SCREEN COLUHN 

TOP SCREEN RON 

BOTTOH SCREEN ROH 

LEFT HARGIN (NORHAL SIZE DUHP) 

LEFT HARGIN (EXPANDED DUBP) 

IHAGE I0=NORHAL, 255=INVERSE) 



0: REH 

REH »l GET PICTURE tl 

HGHE 

VTAB i.3): HTAB iS): PRINT "APPLE II -> EPSON H^B 

HTAB ill): PRINT "HIRES SCREEN DUHP" 

VTAB (10): INPUT "FILE NAHE- ';Ft 

IF LEN (F$) = THEN END 
270 HOHE : FLASH : PRINT "LOADING ";Ft: NORHAL 
280 PRINT D$;"BLOAD ";Ft;°,At200»" 
290 POKE - 16297, 
300 POKE - 16304,0 
310 POKE - 16302,0 
320 FOR 1 = 1 TO 1000: NEXT 
330 POKE - 16301,0 

340 VTAB (23); PRINT "HIT SPACE TO CONTINUE..."; 
350 GET A$ 

360 REH I* SELECT SIZE AND PARAHETERS *» 
370 TEH : HOHE 
360 PRINT "NiORHAL SIZE DUHP" 
390 PRINT "EiKPANDED DUHP" 
400 PRINT : GET A$ 

N" AND A$ < > "E" GOTO 370 
1: GOTO 440 



IF A$ 



410 

420 IF A$ = "N" THEN F2 

430 F2 = 2 

HOHE 

PRINT "SCREEN DUHP PARAHETERS 



440 
450 
460 
470 



500 



520 
530 
540 
550 
560 

570 



PRINT 
PRINT ° 
PRINT • 
PRINT LC 
PRINT ' 
PRINT RC 
PRINT " 
PRINT ■ 



1. SCREEN PAGE";: HTAB (35): PRINT SC 

2. LEFT SCREEN COLUMN":: HTAB (35): 



RIGHT SCREEN COLUHN":: HTAB (35): 



4. TOP SCREEN ROK":: HTAB (35): PRINT TR 

5. BOTTOH SCREEN ROW";: HTAB (35): 

PRINT BR 

PRINT ' 6. 

IF F2 = 1 THEN 

PRINT L2 

PRINT " 7 

VTAB (15): 

CHANGES. " 

PRINT "WHEN NO HORE, HIT RETURN." 



LEFT HARGIN";: HTAB (35) 
PRINT LI: GOTO 550 

. IHAGE";: HTAB (35): PRINT IH 
PRINT "ENTER PARAMETER NUHBER TO HAKE 



590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 

830 
840 
850 



VTAB (20:: GET A« 
A = A3C iA«) - 48 
IF A = - 35 GOTO 720 
ON A GOTO 630,640,650.660,670,680,710 
GOTO 440 

INPUT "SCREEN PAGE- ";SC: GOTO 440 
INPUT "LEFT SCREEN COLUHN- "jLC: GOTO 440 
INPUT "RIGHT SCREEN COLUHN- ";RC; GOTO 440 
INPUT "TOP SCREEN ROW- •;TR; GOTO 440 
INPUT "BOTTOH SCREEN ROW- ";BR: GOTO 440 
INPUT "LEFT HARGIN- ■;L 
IF F2 = 1 THEN LI = L: GOTO 440 



L2 



G(]TO 440 



INPUT "IHAGE- ";IH: GOTO 440 

REH »t SEND PARAHETERS TO MACHINE LANGUAGE ROUTINE 

POKE 37638, SC 

POKE 37639, INT (LC / 7) 

POKE 37640, INT (RC / 7) 

POKE 37641, INT (TR / 8) 

POKE 37642, INT (BR / 8) 

POKE 37643, LI 

POKE 37644, L2 

POKE 37645, I« 

REM »» DIJHP IHAGE TO PRINTER II 

HOHE : VTAB (10): FLASH : PRINT "DUMPING IHAGE,': 

NORMAL 

PRINT "HIT ESC TO STOP AT ANY TIME..." 

IF F2 = 1 THEN CALL 37632: GOTO 220 

CALL 37635: GOTO 220 



Listing 1 



iiiiiiiiiuiitiuiiiitiiitiiitttiittii 

;l 

APPLE II -> EPSON HX-80 
HIRES SCREEN DUHP ROUTINES 



;i 

;l 
;t 
;» 
;» 
;i 

;tl||imf|tllllllllllll}tllllllllllll 



ROBERT D. WALKER 
HARIETTA, GA 



;||||tllllllttlll||||||||||}mil||t| 

;l SUBROUriNE WRITTEN FOR THE I 

;l EPSON i1X-80 WITH SRAFTRA.K OPTION I 

;» t 

;l HiMEH SHOULD BE SET LOWER THAN I 
;l 37632 ($9300) FOR A 48K SYSTEM I 
;ltl}im:)}ltl|}tlllll|}tl}|||t}|||}} 



; ZERO PAGE USAGE 
00FC BLKPT EQU $00FC 
00FE TBLKPT EQU $00FE 



POINTER TO BLOCK 
TEMP POINTER TD BLOCK 



HISC CONSTANTS AND LOCATIONS 



ESC EfiU $009B 
C000 KEYDATA EQU $C000 
C010 KEYSTRB EQU $C010 

; PRINTER SLOT »1 
C090 PROUT EQU $C090 
ClCl PRWAIT EQU $C!C1 



INTERRUPT KEY 



; KEYBOARD DATA LOCATION 
; KEYBOARD STROBE LOCATION 



PRINTER OUTPUT LOCATION 
CHECK IF PRINTER READY LOC 
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9300 


ORG *93M 




=' 










! ROUTINE ENTRY POINTS 






th' ^ 


9300 4C 22 93 


JHP DUHP 






1 /i'^if^ 1 


9303 4C 98 93 


JHP DUMPE 
; PARAMETERS 






l^^^L^^0\ 


wm Sure 


930A 20 

9307 00 

9308 27 


SCRNPB BYT $20 
LCOL BYT $00 
RCOL BYT $27 






it^ insured? 


9309 00 


TROW BYT $00 






SAFEWAR£'^« Insurance provides flill 


930A 17 


BROW BYT $17 






replacement of hardware, media and 


930B 10 


LHAR6 BYT $13 






purchased software after a low $50 deductible. 


930C 0A 


LHARGE BYT $0A 






As little as $35/yr covers; 


930D 00 


IMAGE BYT $00 






• Fire • Theft • Power Surges 
• Earthquake • Water Damage • Auto Accident 


n"T yir" 1 1 


I TENP STORAGE 

r^. nil f. 11^ ii 






Select the coverage you want from the table. 

Amount of Insurance Annual Premium 


930E 00 
930F 00 

9310 00 

9311 00 

9312 00 

9313 00 


RGIj BYT 
COL BYT 
BLKRGH BYT « 
BLKCOL BYT 
EKBYTE BYT i 
TINE BYT 






Vp to $2,000 $ i5 


$ 2.0014 5.000 $ 60 


S 5.001-$ 8.000 $ 75 


$ 8.001411.000 $ 90 


Sll.001-$1 4.000 $105 


Call for higher coverages. 


9314 00 


HLiLTl BYT 






Not avail in AK. llC, HI. Id', lA MF. M.S. ,W, SC, or m. 

Call for immediate protection. 


9315 00 

9316 00 00 
9318 00 00 


HULT2 BYT 
PROD BYT 0,0 
DOTS BYT 0,0 






1-800-848-3469 

On Ohio 01111-800-848-2112) 


931fi 00 00 00 


BLKTAB BYT 0,0,0,0,0,0,0,0 

,ttmmmmtmtmmmtmm 

;» DUMP THE HIRES SCREEN, DOT FOR 1 
;l DOT -- NORMAL SIZE t 
;}ttnt}MUtUMtltUttttttUttUU 






COLUMBIA NATIONAL GENERAL AGENCY 










Subscribers - 










Check Your Labels ! 


9322 fl? 08 


DUMP LDA l$08 


J LINE SPACING 






9324 20 77 95 
9327 AD 09 93 
932A 8D 0E 93 


JSR LiNESPC 
LDA TROW 
STA ROW 


i - 8 DOTS 
; START AT TOP 




As part of our recent 
reorganization, we have changed 
subscription fulfillment houses. 




; PRINT ONE ROW OF BLOCK - 


- 




As programmers, you can 




i I.E. 8 ROWS OF DOTS 






appreciate that any change such 


932D 20 64 95 


PROH JSR CHKKEY 


; INTERRUPT ? 




as this, no matter how carefully 


9330 AD 0B 93 


LDA LMARG 


; LEFT MARGIN 




done, is likely to cause some 


9333 20 89 95 


JSR TAB 






errors during the transition 


9336 AD 07 93 


LDA LCOL 


i START AT LEFT 




period. This is especially true 


9339 8D 0F 93 


STA COL 






with the foreign subscriptions. 


933C 38 


SEC 


; COMPUTER 1 DOTS 




While the new system uses a 


933D AD 08 93 


LDA RCOL 


; IN ONE RON 




better method of generating 


9340 ED 07 93 


SBC LCOL 






country information, we had to 


9343 8D 14 93 


STA HULTl 






mal<e some guesses in 


9346 EE 14 93 


INC HULTl 






converting from the existing 


9349 A9 07 


LDA «$07 






labels. 


934B 8D 15 93 


STA MULT2 






Please examine your 


934E 20 44 95 


JSR MULTPLY 






subscription label on this issue 


9351 20 B6 95 


JSR PDOTS 


; TELL PRINTER DOTS IN ROM 




of MICRO. If you find any 


9354 AD 16 93 


LDA PROD 






problems - wrong address, 


9357 20 9F 95 


JSR PRCOUT 






incorrect spelling, incorrect zip 


935A AD 17 93 


LDA PROD+1 






code, etc. - please notify us 


935D 20 9F 95 


JSR PRCOUT 






immediately. 


9360 20 C0 94 


PBLK JSR CALCBLK 


; CALC ADDRESS 






9363 20 A3 94 


JSR ftOTBLK 


; ROTATE IMAGE 




MICRO Circulation 


9366 A2 00 


LDa i$00 






P.O. Box 6502 


9368 BD lA 93 


PCOL LDA BLKTAB,? 


; GET BYTE 




Chelmsford, MA 01824 
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Applesoft program for loading and 
printing HiRes pictures. 


936B 4D m 93 
93iE 2i 9F 95 
9371 E8 




EOR IMAGE 
JSR i^RCOUT 
INK 




The Machine Language Subroutine 


9372 E9 07 
9374 D0 F2 




CPX 1*07 
BNE PCOL 


i 7 BYTES./BLK 


Listing 1 shiows tlie assembly listing of 


9376 AD »F 93 




LDA COL 




the screen dump subroutine. In tliis 


9379 CD 08 93 




CHP RCOL 


; DONE KITH BLK ? 


listing the subroutine was assembled to 
reside in memory locations $9300 


937 C F» U 
937E EE 0F 93 




BES NEXROW 
INC CQL 




through $95FF, just below DOS for a 


9381 4C 60 93 




J MP PBLK 




48K system. Table 1 shows the 


9384 2i 98 95 


NEXRON 


JSR CRLF 


; OUTPUT CR, LF 


important memory locations for calling 










this subroutine. 




CALCULATE NE.U RD» 




As shown in Table 1, the area of the 


9387 AD aE 93 




LDA R0« 




screen to be printed is determined by 


933A CD 0fi 93 




CfiP ilROH 


; DONE ? 


four parameters: left ($9307), right 


938D F0 06 




BEQ DONE 




($9308), top ($9309), bottom ($930A). 


938F EE aE 93 




INC FiOli 




These parameters require special 


9392 4C 2D 93 




JHP PROH 




consideration. 


9395 4C 75 95 


DONE 


JHP RESETPR 


; RESET PRINTER 


The left and right parameters are 










each divided by 7. Assume, for 




tttttuttttttttttttuttuttutttttt} 1 


example, that the entire screen is to be 




» DUMP THE HIRES SCREEN, 


EXPANDED t 


printed. The far left column would be 




t VERSION. E;ACH dot on SCREEN IS t 


0, while the far right column would be 




t REPRESENTED BY 4 DOTS ON THE t 


279. Dividing both of these numbers by 




t PRINTER (2 DOTS I 2 DOTS). t 


7 and taking the integer portion yields 




tuuttttttuiittutuuuuntuuu 


and 39, respectively. Thus the value 










would be stored in location $9307. In 


9398 A9 07 


DLIHPE 


LDA mi 


; LINE SPACING 


addition, the value 39 would be stored 


939A 28 77 95 




JSR LINESPC 


; = 7 DOTS 


in location $9308. 


939D AD 08 93 




LDA RCOL 


i START AT RIGHT 


The top and bottom parameters are 


93A0 8D 0F 93 




STA [:0L 




each divided by 8. In keeping with the 










Applesoft standard, the top row would 




PRINT FAR RI6HT DOTS IN ONE COLUH 


be 0, and the bottom row would be 191. 




OF BLOCK -- 7 COLUMNS OF DOTS 


Dividing both of these values by 8 and 


93A3 20 64 95 


PCOLR 


JSR [HKKEV 


; INTERRUPT :> 


taking the integer portion yields and 


93AA AD K 93 




LDA IMAR6E 


i LEFT MARGIN 


23, respectively. In a similar manner, 


93A9 20 89 95 




JSR TAB 




the value would be stored in location 


93AC 38 




SEC 


; COMPUTER DOTS 


$9309, and the value 23 stored in 


93AD AD 0A 93 




LDA BRON 


; I IK ONE COL 


location $930A. 


93B0 ED 09 93 




SBC IRON 




This technique of dividing the 


93B3 8D 14 93 




STA HULTl 




parameters by 7 or 8 significantly 


93B6 EE 14 93 




INC NULTl 




shortens the size of the screen dump 


93B9 A9 10 




LDA i*10 




subroutine. The one drawback. 


93BB BD 15 93 




STA NULT2 




however, is that the screen area to be 


93BE 20 44 95 




JSR f'ULTPLi 




printed cannot be specified exactly. 


93C1 20 B4 95 




JSR F'DOTS 


; TELL PRINTER DOTS IN DDL 


Instead, it is specified in blocks of 7 


93C4 AD 16 93 




LDA FROD 




dots horizontally and 8 dots vertically. 


93C7 BD 18 93 




STA DOTS 


; SAVE « DOTS 


Another feature of this subroutine is 


93CA 20 9F 95 




JSR FRCOUT 




the ability to terminate the screen 


93CD AD 17 93 




LDA PROD+1 




dump at any time simply by pressing 


93D8 8D 19 93 




STA COTS+l 




the escape key. Pressing this key will 


93D3 20 9F 95 




JSR PRCDUT 




return control to the calling program. 


93D6 AD 09 93 




LDA TROW 


; START AT TOP 


The following instructions show 


93D9 8D 0E 93 
93DC 20 C0 94 


PCOLRl 


STA f!OH 
JSR [ALCBLK 


J CALC ADDRESS 


the steps required in creating a binary 










disk file containing this object code. 




; CREATE EXPANDED BYTES FROM 4 MSB F 


1. Protect memory locations above 




; BLOCK TABLE, THEN PRINT 




$92FF by setting high memory pointers 










to $92FF (37631). While in Applesoft 


93DF A2 00 




LDX mi 




type "fflMEM: 37631". 


93E1 A9 00 


PC.ULR2 


LDA 1*00 




2. Enter the monitor by typing "CALL 


93E3 SB 12 93 




STA EXBYTE 




-151". 


93E6 3E Ifl 93 




ROL JLKTAB.X 


; DISCARD MSB 
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93£? A3 «3 


LDY im 




93EB BD lA 93 PC0LR3 LDfi BLK'TAB,* 




93EE 2fl 


RDL 




93EF 2E 12 93 


ROL EJBVTE 




93F2 3E lA 93 


ROL BLKTAB.,? 




93F5 2E 12 93 


ROL EJBYTE 




93F8 88 


DEV 




=)3F9 C» id 


CPY «$ga 




93FB M EE 


BNE PC0LR3 




93FD 3E lA 93 


ROL BLKTABJ 




94g« 2E 12 93 


ROL EXBYTE 




9403 23 9A 94 


JSR P3BVTE 


; PRINT BYTE 


940s 23 9A 94 


OSR P.KBYTE 


; TWICE 1 


94«9 £8 


IM 




94gA E0 08 


CPX »$0S 


; DONK KITH BLK 


94flC D0 D3 


BNE PC0LR2 




940E AD 0E 93 


LDA ROH 


; DONE HITH COL 


9411 CD 0A 93 


CMP BRO« 




9414 FJ3 ai 


BEQ PC0LR4 




9416 EE 0E 93 


INC ROH 




9419 4C DC 93 


JMP PCOLRl 




94IC 20 98 95 PC0LR4 JSR CRLF 


; PRINT CR, LF 



PRINT FAR LEFT DOTS IN ONE COLUMN 
OF BLOCKS -- 7 COLUMNS OF DOTS 



941F 


20 64 


95 


9422 


AD 


0C 


93 


9425 


20 


89 


95 


9426 


20 


Be 


95 


■542E 


AD 


18 


93 


94 2E 


20 


9F 


95 


9431 


AD 


19 


93 


9434 


20 9F 


95 


9437 


AD 09 


93 


943A 


8D 0E 


93 


943D 


20 


C0 


94 



PCOLL 



PCOLLl 



JSR CHKKEY 
LDA LMAR6E 
JSR TAB 
JSR PDOTS 
LDA DOTS 
JSR PfiCOUT 
LDA DOTS+i 
JSR PRCOUT 
LDA TROH 
STfl ROH 
JSR CALCBLK 



J INTERRUPT " 
; LEFT HAR6IN 

; TELL PRINTER DOTS IN COL 



; START AT TCP 
: CALC ADDRESS 



CREATE EaPANDED BYTES FROM 4 LSB F 
BLOCK. TABLE. THEN PRINT 



9440 A2 B« 


LD:i! 1*00 




9442 A9 30 FC0LL2 LDA »«0 




9444 8D 12 93 


STA EJBYTE 




9447 3E lA 93 


ROL BLKTAB,)! 


; DISCARD 4 MSB 


944A 3E lA 93 


ROL BLKTAB,? 




944D 3E lA 93 


ROL BLKTAB, X 




9450 3E lA 93 


ROL BLKTAB,)! 




9453 3E lA 93 


ROL BLKTAB, X 


; GET 4 LSB 


9456 2E 12 93 


ROL EXBYTE 




9459 A0 03 


LDY i$03 




945B BD lA 93 PC0LL3 LDA BLKTAB,)i 




945E 2A 


ROL 




945F 2E 12 93 


ROL EXBYTE 




9462 3E lA 93 


ROL BLKTAB, X 




9465 2t 12 93 


fiOL EXBYTE 




9468 83 


DEY 




9469 C0 00 


CPY #*00 




946B D0 EE 


BME PC0LL3 




946D 20 9fi 94 


JSR PXBYTE 


; PRINT BYTE 


9470 20 9A 94 


JSR FXBYTE 


; TWICE 1 


9473 E8 


INX 




9474 ES 08 


CPS 1*08 


; DONE WITH BLO 
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3. Enter the binary code into 
locations $9300 through $95FF. For 
example, the first 8 bytes would be 
entered as follows: 

9300:4C 22 93 4C AA 93 20 00 
See page 44 of the Apple II Refeience 
Manual for more detail. 

4. Exit the monitor by typing a 
control-B followed by a return. 

5. Save the object file to the disk by 
typing: 

'BSAVE OBJ.DUMP,A$9300,L$2FF" 

To use this subroutine as part of a 
BASIC program it is first necessary to 
protect all memory locations above 
$92FF (37631). In Applesoft this is done 
by the command fflMEM: 37631. 
Sscond, the object code must be loaded 
iiom the disk. In this case one would 
type "BLOAD OBJ.DUMP,A$9300". 
The subroutine is now ready for use. 

The BASIC Program 

L::sting 2 is the BASIC program which 
demonstrates the use of the screen 
dump subroutine. This program 
provides an easy means of loading, 
d:.splaying and dumping HiRes 
graphics. 

The program consists of five main 
parts. Lines 100 through 200 load the 
ofiject code and initialize the screen 
dump parameters. Lines 210 through 
350 prompt the user for the binary file 
ns.me. Line 280 will then load the 
image into HiRes page 1. 

The third section of this program, 
lines 360 through 710, allows the user 
to select different screen dump 
parameters. When first run, these 
parameters are set to the default values 
shown in Table 1 . 

Lines 730 through 800 pass the 
screen dump parameters to the 
machine language subroutine through 
the use of POKE statements. 

The final section, lines 810 through 
850, calls either the normal or 
expanded size screen dump subroutine. 
Once the screen dump is complete or 
terminated by pressing the escape key, 
co.itrol is once again returned to the 
Applesoft program. 

Concluding Remarks 

I have used this subroutine since 
August 1981, and have found it to work 
quickly and flawlessly. I am presently 
working on linking this machine 
language subroutine into an Apple 
Pascal library unit. This will improve 
upon the program published in Micro, 
February 1983. 
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9476 D0 Ch 




BNE PC0LL2 


94C0 A9 00 


CALCBLK LDA 1*00 


; BLKPT = SCfiNPE 


9478 AD 0E 


93 


LDA ROK ! DONE HITH COL? 


94C2 85 FC 


STA BLKPT 




9476 CD m 93 


CUP BRO« 


94C4 AD 06 93 


LDA SCRNP8 




947E F0 06 




BEQ PC0LL4 


94C7 85 FD 


STA BLKPT+1 




9480 EE 0E 


93 


INC ROX 




i 




94S3 4C 3D 


94 


JHP PCDLLl 




; A= n0,Hl,i13 OF ROW 




9486 20 98 


95 


PC0LL4 JSR CRLF ; PRINT CR, LF 




i 










94C9 A9 80 


LDA 1*80 


; BLKPT = 






CALCULATE NEXT COLUHN 


94CB 9D 14 93 
94CE AD 0E 93 


STA «ULT1 
LDA ROW 


; BLKPT+A:*80 


9489 AD 0F 


93 


LDA COL ; DONE? 




} 




946C CD 07 


93 


CUP LCOL 




; HASK OFF A 




948F F0 06 




BEB DONEE 




\ 




9491 CE 0F 


93 


DEC COL 


94D1 29 07 


AND i)*07 


5 MASK = 000001 1 1 


9494 4C A3 


93 


JHP PCOLR 


94D3 8D 15 93 


STA HULT2 




9497 4C 75 


95 


DONEE JHP RESETPR ; RESET PRINTER 


94D6 20 44 95 
94D9 18 


JSR MULTPLY 
CLC 








■ uunututtttttMutMtttttttttut 


94DA A5 FC 


LDA BLKPT 








;t PRINT BYTE » 


94DC 6D 16 93 


ADC PROD 








tittttututtutuuntttuMUtttu 


94DF 85 FC 
94E1 A5 FD 


STA BLKPT 
LDA BLKPT+1 




949A AD 12 


93 


'fsBtTE LDA EJBYTE 


94E3 6D 17 93 


ADC PROD+1 




949D 4D 0D 


93 


EOR IHAGE 


94E6 85 FD 


STA BLKPT+1 




94A0 4C 9F 


95 


JHP PRCOUT 
'tttlttttttttMIUUtUttttUMUtttt 




; B= (14, N5 OF ROB 








;t ROTBLK - ROTATE BLK TABLE SO THS » 


94E8 A9 28 


LDA »*2S 


; BLKPT= 






t BITS ARE NOT ALIGNED FOR PRINT- I 


94EA 8D 14 93 


STA HULTl 


: BLKPT+BI$2e 






;» ING TOP OF IRASE AT TOP OF PAPER t 


94ED AD 0E 93 


LDA RDM 








tutifttttnittttututtiuiiuttMi 




t 












; MASK OFF B THEN SHIFT TO LSB POSIIDN | 


94h3 A0 07 




'rOTBLK LDY 1*07 ; 7 BITS 




'. 




94h5 fi2 07 




ROTBLK 1 LDX 1*07 ; 8 BYTES 


94F0 29 IB 
94F2 4A 


AND #$18 
LSR 


i MASK = 00011000 






MAKE BYTE FROH LSB BITS IN BLKTAB 


94F3 4A 
94F4 4A 


LSR 
LSR 




94A7 5E lA 


93 


'hakebvt LSR BLKTAB.K 


94F5 BD 15 93 


STA I1ULT2 




94AA 6A 




ROR 


94FB 20 44 95 


JSR NULTPLY 




94AB CA 




DE.« 


94FB IB 


CLC 




94AC E0 FF 




CPJ »tFF 


94FC A5 FC 


LDA BLKPT 




94AE D0 F7 




BNE HAKEBVT 


94FE 6D 16 93 


ADC PROD 




94B0 48 




PHA ; PUSH BYTE ON STACK 


9501 85 FC 


STA BLKPT 




94B1 88 




DEr 


9503 A5 FD 


LDA BLKPT+1 




94S2 D0 F! 




BNE ROTBLK! 


9505 6D 17 93 
9508 85 FD 


ADC PROD+1 
STA BLKPT+1 








flAKE NEW BLKTAB FROH 7 BYTES 


950A 18 


CLC 


; BLKPT= 






, STORED ON STACK 


950B A5 FC 
950D 6D 0F 93 


LDA BLKPT 
ADC COL 


; BLKPT+COL 


94B4 h2 06 




GETBLK LD.K #$06 ; 7 BYTES 


9510 85 FC 


STA BLKPT 




94B6 68 




6ETBYTE PLA ; POP BYTE OFF STACK 


9512 A5 FD 


LDA BLKPT+1 




94B7 9D lA 


93 


STA BLKTAB,)! 


9514 69 00 


ADC #$00 




94BA CA 




de:i! 


9516 85 FD 


STA BLKPT+1 




94BB ES FF 




CPii #$FF 








94BD D0 F7 




BNE GETBYTE 




jUttUttUUUttttttlUtUtHttltUI 1 


94BF 60 




RTS 




; t STORE 8 BYTES OF BLOCK 
;» BLOCK TABLE iBLKTAB), 


i BLKPT) 1 t 
TOP BYTE t 






' mtmmmmmtmmmmmt 




it IS STORED IN BLKTAB, 


t 






■t CALCULATE BLKPT (BLOCK POINTER)- t 




,mtmtmmmmmnmnmm \ 






t BLKPT IS THE ADDRESS OF THE TOP I 




1 








;t BYTE IN THE BLOCK DEFINED BY ROX 1 


9518 A5 FC 


STOBLK LDA BLKPT 


; INITIALIZE 






t AND COL, i 


951A 85 FE 


STA TBLKPT 


; TBLKPT WITH 






• unnmummmnmummm 


95 IC A5 FD 
95 IE 85 FF 


LDA BLKPT+1 
STA TBLKPT+1 


i BLKPT 
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9520 A9 00 


LDA l«0g i START AT TOP 




,ui}utttu«»tnu}ttutttMttu»tn 


9522 8D 10 93 


STA BLKROW ; OF BLOCK 




;» SET LINE SPACING TO NUMBER OF DOS t 


9525 A2 00 


STOBYTE LD)( l$00 j SAVE BYTE IN 




,t PASSED IN ACCUMULATOR 1 


9527 Al FE 


LDA iTBLKPT,r) ; TEMP LOC 


9577 


uttuttttuttuutiutuuttuuttttt 


9529 43 


PHA 






952A AD 10 93 


LDA BLKROW ; SAVE TEMP 


9577 48 


LINEIiPC PHA 


952D Ah 


TAX ; IN BLKTAB 


9578 20 98 95 


JSR CRLF ; PRINT CR, LP 


952E 48 


PLA 


957E A9 IB 


LDA HIB ; ESC 


952F 9D lA 93 


STA BLKTAB, X 


957D 20 9F 95 


JSR PRCOUT 


9532 18 


CLC i TBLKPT= 


9580 A9 41 


LDA 1*41 ; 'A' 


5533 A5 FF 


LDA TBLKPT+1 ; TBLKPT+*4il0 


9582 20 9F 95 


JSR PRCOUT 


9535 49 04 


ADC «04 


9585 48 


PLA ; » DOTS 


9537 35 FF 


STA TBLKPT+1 


9584 4C 9F 95 


JMP PRCOUT 


9539 EE 10 93 


INC BLKRO« ; COUNT BYTES 






953C AD 10 93 


LDA BLKROW ; 8 BYTES 




;tttnuttutttttututtitutuuu 


953F C9 08 


CnP #$08 ; TRANSFERRED ? 




;t SEUD NUMBER OF SPACES, PASSED » 


9541 D0 E2 


BNE STOBYTE 




;t IN ACCUMULATOR TO PRINTER » 


9543 00 


RTS 




;ttMttUtUtUMtUUtUtUMtUtt 




■.tuttuuuuntttMututtutttntt 


9589 AS 


" TAB TAY 




;J 8 t 8 BIT MULTIPLICATION t 


958H C0 00 


SPACE CPY »$00 




\t PROD = MULTl » HULT2 t 


958C F0 09 


BEQ RETTAB ; RETURN 




;tutttututnMtuutu«nuuMttt 


958E A9 20 


LDA U20 ; SPACE 




\ 


9590 20 9F 95 


JSR PRCOUT 


9544 h2 08 


tlULTPLY LD.H t$08 ; MULT 8 BITS 


9593 88 


DEY 


9544 A9 06 


LDA »$00 ; CLEAR MSB PROD 


9594 4C 8A 95 


JHP SPACE 


9548 an 17 93 


STA PROD+1 


9597 40 


RETTAB RTS 


954B 0A 


SHIFTL ASL 






V54C 2E 17 93 


ROL PROD+1 




ittututttMUtMttMnuutitttutt 


954F pE 14 93 


ASL MULTi 




;t OUTPUT A CARRIAGE RETURN AND A t 


9552 90 09 


BCC CHECKCT ; CHECK BIT 




It LINE FEED TO PRINTER t 


9554 IB 


CLC : ADD TO PROD 




;uitmttttututuutMUttt>tutu 


9555 4D 15 93 


ADC HULT2 






9558 90 03 


BCC CHECKCT 


9598 A9 0D 


"cRLF LDA #»0D ; ASCII CR 


955h EE 17 93 


INC PROD+1 


959A 20 9F 95 


JSR PRCOUT 


955D CA 


CHECKCT DEa 


959D A9 0A 


LDA l»*0A ; ASCII LF 


955E 00 EB 


BNE SHIFTL ; DONE ? 






9540 8D 14 93 


STA PROD 




'mttauuuttiutttuttttuuuMt 


9543 40 


RTS 




;t SEND CHARACTER, PASSED IN ACCOM, t 
i» TO THE PRINTER. SLOT = 1 t 




;utuuttttMtntittuttMiutuntt 




sttttntuutttuuutiuututunti 




;t CHECK TO SEE IF ESC KEY HAS BEE.N t 








;l PRESSED, RETURN TO CALLIN6 PROG, t 


959F 8D 90 C0 


PRCQUr STh PROUT J SEND CHAR 




;» IF ESC HAS BEEN PRESSED, ELSE t 


95A2 h9 00 


LDA l$00 ; DELAY 




•,t CONTINUE. t 


95A4 3D 13 93 


STA TIME 




;tuutt}tuutttttttntutttuu»tit 


95A7 CE 13 93 


DELAY DEC TIME 




! 


95AA D0 FB 


BNE DELAY 


9544 AD 00 C0 


CHKKEY IDA KEYDATA ; LOOK AT KEVBRD 


95hC ad CI CI 


HAIT LDA PRIsAiT ; «AIT UNTIL 


9547 3D 10 C0 


STh KEYSTRB ; CLEAR STROBE 


95AF 29 80 


AND t$80 i PRINTER READY 


954A C9 60 


CMP t$B0 ; KEYPRESS ? 


95B1 C9 00 


CMP im [ FOR NEXT CHAR 


954C 90 04 


BCC CONT 


95B3 D0 F7 


BNE WAIT 


954E C9 9B 


CMP iESC i ESC KEY ? 


95B5 40 


RTS 


9570 D0 02 


BHE CONT 






9572 4B 


STOP PLA ; PULL OFF 




;ttutununuiUM}<uituutu}u 


9573 48 


PLA ; RETURN ADDRESS 




it SENl PRINTER ESC K TO SET UP TO t 


9574 60 


CONT RTS 




,t ACCEPT NUMBER OF DOTS INFO. t 




4 




jtttttlttttlttttttttttttttttttttltttt 




;ttHtUUtU»tUtMtUtlMt)UUtUI 








:> RESET PRINTER TO ORIBINAL LINE » 


95B4 A9 IB 


PDOTS LDA *m ; ASCII ESC 




;t SPACING, 12 DOTS t 


95B8 20 9F 95 


JSR PRCOUT 




;UttlttUttUtMt»tMMtMUMMMtt 


95BB A9 4B 


LDA «4B ; ASCII K 




4 


95BD 4C 9F 95 


JHP PRCOUT 


9575 h9 0C 


RtSETPR LDA »12 








■ 


95C0 


END 
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A Timely Interrupt 



Jt r **Wlr ■ ** ^/Ir '*^*A 



by Mike Hamilton 



A most accurate timer for Standard Color BASIC, 
Extended Color BASIC, or ML programs can be 
made with just a few POKEs 



The Color Computer probably has one 
of the most accurate and simple 
intenupt timers available on any 
microcomputer. All that is required to 
use it is understanding of a few points 
about the Color Computer hardware 
and software. 

The Video Display Generator 
(VDG) displays an entire screen 60 
times per second. After each screen 
display, the VDG toggles its horizontal 
synchronization line which is tied to 
the interrupt input of a Peripheral 
Interface Adapter [PIA). When bit zero 
of the control register of this PIA is set, 
the interrupt is enabled and is passed 
on to the Interrupt ReQuest (IRQ) pin 
of the 6809 Microprocessor Unit 
(MPU). When the MPU receives this 
interrupt, it fetches the address of the 
IRQ routine from memory locations 
$FFF8 (65528) [high address byte] and 
$FFF9 (65529) [low address byte|. This 
ROM address is permanently set to 
point to RAM location $010C (268) 
which is a three byte JMP program that 
we can easily alter to fit our needs. 

The idea behind using IRQ as a 
timer is simple: every interrupt from 
the VDG, add one to a 16-bit register, 
reset bit seven of the PIA control 
register to enable the next interrupt, 
and return to processing. Extended 
Color BASIC does something similar 
with its TIMER command. You can 
check by comparing the TIMER value 
with the 16-bit register at $0112 (274) 
and $0113 (275) with this program: 

10 PRINT PEEK(274)»256+PEEK(275); 
TIHERiGOTO 10 
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Doing the same in Standard Color 
BASIC requires a bit more 
programming. Listing 1 is the short 
BASIC program. Line 10 reserves 
memory space for a short IRQ 
processing machine language routine 
that is POKEd into memory. The 
assembly listing for this interrupt 
processor is shown in Listing 2. Mote 
that the Data Direction Register of the 
PIA at $FF03 (65283) must be read to 
reset the IRQ interrupt. This is done by 
the LDA $FF03. Line 20 changes the 
JMP instruction at $010C (268) to point 
to the new IRQ routine. Line 30 POKEs 
the ML routine into memory. Line 40 
enables the IRQ interrupt. Line 50 is 
the DATA for the ML routine. Line 60 
shows the timer operating. 

Now, even if you erase the BASIC 
program, the timer will continue to 



operate. Resetting the computer will 
reset the interrupt enable bit to its 
normal value and the timer will stop. 
Another way of stopping either the 
'homemade' timer or Extended 
BASIC'S TIMER is to: 



P0KE(45283), PEEK (45283) AND 254 



which will disable the IRQ interrupt. A 
timer is one of the simplest uses of the 
interrupt, but other tasks that require 
constant updating, such as printing a 
message in the comer of the screen, are 
also easily implemented. Proceed with 
caution though, because the more 
elaborate and time consuming the task, 
the slower the main program will 
function, especially in BASIC. 



Listing 1 BASIC Timer 








10 CLEAR 255,14367 RE1 RESERVE ML SPACE 

20 POKE 249,43!P0KE 270,240 REM IRQ JMP VALUE 

30 FOR 1=1 TO 12JREA0 ^iPOKE 16367+I:NEU I REM POKE ML 

40 POKE 45283, PEEK(652l33) OR 1 REM ENABLE INTERRUPT 

50 DATA 190,63,253,48,1,191,63,253,182,255,2,3? 

60 PRINT PEEK(16381I»2I56+PEEK.(16382>!G0T0 60 


Listing 2 IRQP 


[andler 










TINE 


EQU 
]RG 


I3FFD 
«FF0 


) 16381 


3FF0 BE 3FFD 
3FF3 30 01 
3FF5 BF 3FFD 
3FF8 B6 FF02 
3FFB 3B 


START 


.m 

LDA 
i?TI 


TINE 
1,)( 
TINE 
$FF02 


1 ADD 1 TO TIME 

i READ DDR TO RESET 
i RETURN 
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Disk Abuse 
A True Story 

by Mark S. Morano 



The sad confessions of a disk junkie. Beware 
lest you, too, fall upon this sad fate. 



It is always uncomfortable broaching a 
subject such as this. People would 
rather not know, would like to believe 
it's just a story, a rumor, a bad dream. 
But we both know the truth - its a 
nightmare. 

I should know - I've been there. I 
remember how it first started. You 
know that first time always sticks with 
you. It had been a long tense day at the 
office. We had this package to get out 
before a competitor, so we were 
working pretty hard. The pressure had 
been mounting and there were more 
bugs than mosquitos in a swamp. You 
know how it is - seems like they're 
breeding in an invisible subroutine 
somewhere. About 3 a.m. I was alone, 
huddled over my terminal when Error 
13 - disk error, popped up on the 
screen. It always seems to creep out at 
the worst time. But now it had made its 
last interrupt. I was mad, raging like a 
bull. I slammed my fist on the desk, 
punched the disk drive open and ripped 
that diskette into a thousand pieces. 



There I sat, tracks and sectors 
everywhere. Then this strange sense of 
relief, a calming came over me. The 
kind of feeling you didn't want to let go 
of . . . but, inexorably, it faded and was 
gone. I came to my senses and cleaned 
up the mess before I was discovered by 
the security guard, or worse yet - the 
night janitor. Still shaken, I powered 
down and called it a night. 

At first I thought it was a one time 
thing; I wrote it off to nerves, a bad day, 
too much pressure. But then, it 
happened again. Another late night 
alone with my terminal. Feeling tired 
and tense, thinking about a drink, but 
knowing what I really wanted - that 
release. And there was only one way I 
knew how to get it. Suddenly it was 
upon me. I found myself jumping up 
and down on a poor defenseless 
diskette. Trampling it to bits, I couldn't 
stop myself. After it was over, 
surrounded with cardboard and tape, 
that euphoric peace came over me. I 
was caught in an infinite loop. 



No one knew for a while. A few 
suspected in Purchasing when the 
requests for diskettes started growing. 
A box or two soon deteriorated into 
cartons and cases. Being a group leader 
I put the blame on my subordinates, 
but I knew discovery was inevitable. 

Then one day George came in to get 
a diskette I had borrowed. You can 
imagine the horror when he found it 
covered with teeth marks. I said it fell 
on the floor and I accidentally rolled 
over it with my chair. It was run over 
by a motorcycle, it ... he wasn't 
Duying it. I confessed the truth was my 
(log got a hold of it. That was my 
;>lipup; George knew I didn't have a 
dog. He just shook his head and walked 
away. 

My excuses wore thin - faulty 
drive, bad lot - people stopped 
believing. I found myself selling my 
peripherals to support what was now a 
S500 a week habit - diskettes don't 
come cheap these days. 

Well, now I'm out a job, my wife 
jind kids have left me and I sit around 
thinking up mail order scams -- you 
know, offering great games on diskette 
for five dollars if you send a diskette. 
They never see either again. And so it 
goes, on and on. Someday I'll be able to 
fass the local computer store without 
getting the shakes. But right now I 
can't; I just lie awake at night thinking 
cf Winchester's. Its a hard way to go. 
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CoCo Bits 



TM 




by John Steiner 



As promised last month, we are 
going to take a closer look at BASIC09, 
and its advantages for the CoCo user. 
First, there is an omission in the 
documentation about loading BASIC09 
that has caused a few problems for 
Tandy, and I am sure has frustrated 
some users. In the documentation, the 
only instruction to enable the user to 
access BASIC09 is to type 'basic09' 
ENTER. The user is then confronted 
with an ERROR 216 (file not found). 
Putting the BASIC09 disk in drive 1 
and entering /dl/basic09 causes OS-9 
to display ERROR 214 (file not 
accessable). 

After some frustrating attempts at 
circumventing the problem, I finally 
resorted to calling my salesman at the 
Radio Shack store. As it turned out, I 
had called at just the right time, as his 
morning mail that day contained the 
solution to the problem in the form of a 
technical note from Tandy. In case you 
run into the problem with your OS-9, 
here is the simple solution. Either use 
the COPY command to copy BASIC09 
into the command directory, so it will 
be accessable from command level, the 
way Tandy uses it in the BASIC09 
manual, or use the LOAD command to 
load BASIC09 into OS-9's workspace: 

COPY /Dl/basic09 

/D0/cmd/basic09 

LOAD /Dl/basic09 

Either choice works, but using 
COPY to put BASIC09 into the cmd 
directory is the most convenient for 
future use. Create an OS-9 diskette 
with basic-09 in the cmd directory, and 
you will have it available as needed. 

One of the questions I am most 
often asked is what will BASIC09 do 
that I can't do from Extended Color 
BASIC. Programming in the highly 
structured BASIC09 is quite a bit 
different from working with Color 
BASIC. BASIC09 is a much more 
powerful language and, if you learn it 
well, you will be able to create faster, 
more powerful operating programs. 

64 



Currently, it is the closest thing to a 
full-fledged compiler CoCo users have 
access to, in that the packed modules 
are really compacted BASIC code 
executed from a run time package. 

Programs written in BASIC09 are 
written in modules. Use the Edit mole 
to enter your program. Type E 
procedurename to open the edit file for 
your procedure. At this point, the first 
character of the line is expected to be 
an edit command. To insert a line in 
your procedure just type a space, t.ae 
program line and the ENTER key. jI^JI 
program lines must begin with a space. 

The other edit commands are + {go 
to next line), -(move back one line), L 
(list current line) and D (delete current 
line). One unique advantage of 
BASIC09 over Color BASIC is that error 
checking is done at the time each li:ie 
is entered. Syntax errors, and similar 
line entry errors are trapped before you 
leave the line. In addition, an error 
check is done before leaving tie 
procedure to check for undefined gotcis, 
gosubs, etc. Also, if there is not enough 
memory for your procedure and any 
arrays, you will be warned at that 
point. 

After typing a space, your program 
line can begin with a number if you 
want. If you plan to use GOTO or 
GOSUB to call the line you are typirg, 
it will have to have a line number. 
Once you type a few lines you can list 
the procedure by typing L*. Your 
program will be listed with t^ie 
hexadecimal I-code address next to 
each line. The I-code address is used to 
refer to individual program lines wh(m 
an error occurs, or for other reasons. 

BASIC09 has four modes. We have 
been working with the edit mode. T^ie 
system mode is used to save, load, 
pack, rename and otherwise 
manipulate procedures from workspace 
to disk, or vice versa. The execution 
mode is entered whenever it is time to 
run your procedures. There is also ;in 
autorun feature that allows you to load 
and run programs from OS-9. If an error 

MICRO 



occurs, BASIC09 automatically enters 
the debug mode unless ON ERROR 
GOTO has been implemented. 

Debug is one of the most powerful 
programming aids I have seen. It is 
even possible to execute the procedure 
one line of source code at a time. You 
can even display the source code on the 
screen while it is executing. Debug 
mode is very powerful, and has much 
more ability to assist with errors in 
programming than Extended Color 
BASIC. 

BASIC09 will be a useful package 
for you, if you can justify the $170.00 
or so that the language will add to the 
cost of your system. I hope to have 
some practical BASIC09 programs for 
you in the future. If you have hints or 
techniques regarding either BASIC09 or 
OS-9, send them in; we will pass them 
along. 
New Tandy Drives for COCO 

The TEC drive which Tandy has sold 
with the CoCo seems to have been 
replaced with a new unit Not many 
people I have talked with have been 
overly impressed with the performance 
level of the TEC drive, so this is good 
news. Tandy is now supplying the 
same drive unit that is found in the 
Model III and 4. A redesigned controller 
to work with the CoCo 2 has also been 
released, which doesn't require the 12 
volt line that the CoCo 2 doesn't have 
at the cartridge port. 

The new package should be a 
reliable addition to the CoCo line. The 
redesigned controller uses phase lock 
loop technology for data separation, 
which will also improve performance 
and stability. The only minus is 
Tandy's insistance on saving pennies 
by not gold plating the contacts on 
either the drive or controller cards. By 
the way, if you have a multi-pack 
interface, you can use the old drive 
controller with the CoCo 2. Also, 
Tandy still configures the cables, so if 
you are mixing drives be aware of the 
configuration situation. 
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Two Disk Utilities 

I have received two utilities for review 
that are useful for the person who has 
to duplicate large quantities of software 
for production purposes. I am 
impressed with both of them. 

Disk Managei by Elite Software 
contains two programs that allow 
copying to tape or disk Load either 
DTCOPY (tape) or DDCOPY (disk), 
and RUN. Insert the source disk in 
drive zero and press ENTER. The drive 
will read the directory and list the title 
of each entry by a number. Load the 
destination disk or tape, and enter the 
number of the program(s) desired, (e.g. 



1,5,6, 12,14). The copy utility will 
copy only those files on the destination 
disk or tape. Entering ALL will cause 
the entire disk to be backed up. The 
disk version will make multiple copies 
with only one entry, and will offer 
Copy, and Abort options if a file is 
already on the destination disk. Other 
options include single drive operation, 
and rearranging the order of files on the 
destination diskette. The disk version 
requires installation of a formatted 
diskette. 

FASTDUPE by Spectrum Projects 
allows duplication and formatting of an 
entire diskette. The only requirement 
is that the size of programs on the 



diskette m.ust be small enough for all of 
them to fit in the 64K CoCo. 
FASTDUPE will first read the source 
disk and ask you to remove it. Install 
unformatted diskettes in drives 
through 4 and press ENTER. 
FASTDUPE will then format and copy 
all four drives in succession, and let 
you install four more to do it again. If 
you don't have four drives, it will work 
with three, two, or even a single drive. 
Any bad copies are flagged, and the 
process continues. If you are just 
reproducing diskettes with a few small 
programs FASTDUPE will save you a 
lot of time. 



JMCftO 




P.O. Box 4364 ^.'^'^ 

Flint, Michigan 48504 "fji^ 
(313) 233-5731 -C , ^ 



ZANIM 

SYSTEMS 



WE CARRY MANY VIC AND APPLE PRODUCTS. PLEASE SEND FOR A CATALOGUE. 



APPLE DUAL DISK CONTROLLER BOARD 



$29.00 



RS232 SERIAL INTERFACE BOARD 



$29.00 



PARALLEL PRINTER INTERFACE 

♦CENTRONICS TYPE COMPATIBLE BOARD 



$29.00 



EPROM PROGRAMMER BOARD 

(2708, 2716, 2732, 2764) 



$29.00 



ALL BOARDS HAVE SOLDER 

MASKING, COMPONENT UYOUT 

AND GOLD EDGE FINGERS 



BUILD YOUR OWN 

APPLE PERIPHERAL CARDS 

AND SAVE UP TO 80% 



WE WILL SUPPLY 

THE IC LIST FOR 

ANY BOARD 



APPLE 11 IS TRACIEMARK OF APPLE COMPUTERS, INC. 

CP/M IS REGISTEHED TRADEMARK OF DIGITAL RESEARCH, INC. 

VIDEX IS REGISTERED TRADEMARK OF VIDEX INC. 
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Interface 



by Ralph Tenny 



As promised in the last issue, we're 
going to look at programming the 6526 
CIA (Complex Interface Adapter) I/O 
chips in the Commodore 64. This is a 
very complex IC which has a high 
capability and a correspondingly 
complex programming sequence to use 
all the CIA features. Here's a list of the 
I/O assignments for the two 6526s in 
the C-64-. 



PAO- 
PA7: 



PBO 
PB7; 



SR: 

CNT: 

PC: 

FLAG: 



U1 ■ Base Address $DCOO 

Keyboard Column Strobes 
Joystick B 
Paddle Multiplex 

Keyboard Row Input 

Joystick A 

Fire Button/Light Pen 

Shift Register # 

User Port 

Count Input 

User Port 

Output Handshake Line 

Not used 

Input Handshake/Interrupt 

Input 

Serial Bus 



Timers 
(2): 
Time of 



PAO- 

PA1: 

PA2- 

PA3: 

PA4- 

PA7: 

SR: 

CNT: 

PC: 

FLAG: 



U2 - Base Address SODOO 

Memory Address Mapping 

User Port 

Serial Bus Control and 

Data 

Shift Register #2 I/O 

User Port 

Count Input 

User Port 

Output Handshake 

User Port 

Input Handshake/Interrupt 

User Port 



Timers 
(2): 
Time of 



Available for User 

Day Clock: Available for User. 



System use 

Day Clock: Available for User 



When you add it all up that is 16 User 
I/O lines. There are also two 9 Volt AC 
lines 5 VDC and four ground (power 
supply common) lines. Of these 16 I/O 
lines only PBO - PB7 on U2 program in 
a completely straightforward manner. 
If you have the HESMON 64 machine 
language monitor cartridge or one of 
the several monitors available on disk 
(MINIMON, SUPERMON or others not 
from Commodore) you can follow this 
discussion more easily. 



The B port is addressed at $DD01 
and the B Data Direction Register 
(DDR) is at $DD03. The lines are set 
for output on a line-by-line basis. For 
example set Bit of the DDR to logic 
to make Bit an input; otherwise set it 
to logic 1 for output. Once the direction 
assignments are made simply write or 
1 to output lines as needed or read 
input lines. 

Turn on your C-64 and enter the 
monitor (with HESMON 64 plug in the 
cartridge and tum on power). Assign 
PB0-PB3 as input and PB4-PB7 as 
output by writing $F0 to $DD03. Now 
write 00 to $DD01 and try to read it 
back. What do you read? If there are no 
external connections made to the User 
Port you will read back $0F. The 
following lines illustrate that sequence 
as performed with HESMON 64. (User 
input appears in italics and the 
HESMON response in normal 
characters.) In HESMON memory 
modification is performed by 
positioning the cursor on a displayed 
memory value then entering the new 
value. In the display below this is 
shown by having the new entry 
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immediately below the byte to be 
changed: 

mOHirtt) 

;DDOO 97 FF 3F FF FF FF FF 

fOiret) 
moo (ret) 
•.mo 97 FF 3F FO FF FF FF FF 

OO(ret) 
mOOint) 
'.am 97 OF 3F FO FF FF FF FF 

Although it is possible to accomplish 
the above experiment in BASIC the 
nature of PEEKs and POKEs will 
obscure the experiment's outcome. 
Programming the User Port lines PBO- 



PB7 in BASIC is possible but the rest of 
the lines are much more difficult to 
program in BASIC. 

Listing 1 demonstrates the 
fundamentals of programming PA2 and 
PAS of U2 and Listing 1 does the same 
for using the SP line in an assembly 
language program. Listing 1 assumes 
that Port A data direction assignments 
made during the C-64 power-up 
sequence have not been changed from 
$3F in $DD02. In fact careless 
modifications to location $DD02 can 
crash the computer as can any 
uninformed data manipulations 
involving Ul. 



The required sequence for 
controlling PA2 or PA3 of U2 is to set 
hits high with a logical OR and to set 
tits low with a logical AND operation. 
It you merely wish to change the logic 
level (toggle) the bit use an 
I,XCLUSIVE OR with the same bit 
riask as the OR operation. Listing 1 
lines 8 & 9 gives the OR bit mask 
v/hich will set either PA2 or PAS high. 
The proper instruction sequence to 
insure that PA2 is high is: 



LDA t$04 
ORA tDDOO 
STfl *DDOO 



{BIT HASK FOR 
; BIT 2 = HIGH 



Figure 1 



Y"--tLt!.QJi 



I.' DC 



PEG 



PE:.l 



F?E:5ET 



ERDUMD 



TL^>0~l 



■•■■ ■-• •■•n 



i:li< 






tl::;o"i 



1 IK 



"1. 



->? £Cik 



lil 



Listing 1 






THIS PROSRAH DEHONSTRATES THE 




ONLY SAFE «AY TO CHANGE Pfi2 




AND Pft3 OF CAI U2. USE THESE 




LINE AS OUTPUTS ONLY. IT IS 




ASSUHED THAT PORT A DATA 




DIRECTIONS ASSI6NHENTS REHAIN 




AS INITIALIZED BY BASIC. 




EQUATES 


BDOO 


APORT EBU *DDOO | PORT LOCATIONS 


DDOl 


BPORT EQU $DD01 


DD02 


ADDR EQU $DD02 



No. 71 - April/May 1984 



MICRO 



67 



DD03 


BDDR EQU IDD03 


DDOl 


BPDRT EQU IDDOl 


DDOE 


THRACR EQU IDDOE 


DD02 


ADDR EQU IDD02 


DDOF 


THRBCR EQU $DDOF 


DD03 


BDDR EQU $DD03 




! 


DDOE 


TMRACR EQU IDDOE 




; CONSTANTS 


DDOF 


TMRBCR EQU IDOOF 


0004 


A2T0G EQU $04 j BIT MASKS 




1 


0008 


A3T0e EQU 108 




i CONSTANTS 


0040 


SPT06 EQU 140 


0004 


A2T0G EQU 104 ; BIT MASKS 




; 


0008 


A3TDG EQU 108 




; BUFFERS 


0040 


SPTOG EQU 140 


007C 


SAVl EQU I7C 




1 


007E 


REPCNT EQU *7E 




; BUFFERS 




i 


007C 


SAVl EQU I7C 


COOO 


ORG ICOOO 


007E 


REPCNT EQU I7E 


COOO A9 FF 


LDA l$FF ) SET 1 OF REPEATS 




1 


C002 85 7E 


STA REPCNT 


COOO 


ORG ICOOO 


C004 A9 04 


IN LDA 4A2T0e ; INVERT PA2 


COOO A9 FF 


LDA IIFF 1 SET « OF REPEATS 


C00& 4D 00 DD 


EOR APORT 


C002 85 7E 


STA REPCNT 


C009 8D 00 DD 


STA APORT 


C004 A9 40 


IN LDA ISPTQG ; TOGGLE SP 


COOC A9 04 


LDA IA2T0G ; INVERT PA2 AGAIN 


C006 4D OE DD EOR TMRACR 


COOE 40 00 DD 


EOR APORT 


C009 8D OE DD STA TMRACR 


coil 8D 00 DD 


STA APORT 


COOC A9 40 


LDA «SPTOB ; TOGGLE SP AGAIN 


C014 20 IC CO 


JSR DELAY 


COOE 4D OE DD EOR THRACR 


C017 C6 7E 


DEC REPCNT ; COUNT DOWN 


con 8D OE DO STA TMRACR 


C019 DO E9 


BNE IN 


C014 20 IC CO JSR DELAY 


COIB 00 


BRK ) RETURN TO HESNON 


C017 C6 7E 


DEC REPCNT ; COUNT DOHN 




1 


C019 DO E9 


BNE IN 


COIC 48 


DELAY PHA ; SAVE REGISTERS 


C016 00 


BRK i RETURN TO HESMON 


COID 98 


TYA 




i 


COIE 48 


PHA 


COIC 48 


DELAY PHA ; SAVE REGISTERS 


COIF 8A 


TXA 


COID 98 


TYA 


C020 48 


PHA 


COIE 418 
COIF 9A 


PHA 


C021 ft9 FF 


LDfl »IFF ) FULL COUNT 


TXA 


C023 8A 


TXA 


C020 48 


PHA 


C024 4A 


LSR A ) HALF COUNT 


C021 A9 FF 


LDA IIFF ! FULL COUNT 


C025 98 


TYA 


C023 8A 


TXA 


C026 CA 


SPIN DEX ; DELAY ROUTINE 


C024 4A 


LSR A I HALF COUNT 


C027 DO FD 


BNE SPIN 


C025 98 


TYA 


C029 88 


DEY 


C026 CA 


SPIN DEX ! DELAY ROUTINE 


C02A DO FA 


BNE SPIN 


C027 DO FD 


BNE SPIN 


C02C &8 


PLA ; RETRIEVE REGISTERS 


C029 88 


DEY 


C02D AA 


TAX 


C02A 00 FA 


BNE SPIN 


C02E 68 


PLA 


C02C 68 


PLA i RETRIEVE REGISTERS 


C02F A8 


TAY 


C02D AA 


TAX 


C030 68 


PLA 


C02E 68 


PLA 


C031 60 


RTS 


C02F A8 


TAY 


C032 


END 


C030 68 


PLA 






C031 60 


RTS 






C032 


END 


Listing 2 






THIS PROGRAM DEMONSTRATES 








HOW TO TOGGLE THE SP LINES. 








BIT 6 OF THE CONTROL REGISTER 


Listing 3 






PROGRAMS THE SHIFT REGISTER 




THIS PROGRAM DEMONSTRATES HON TO 




DATA DIRECTIONS (0 = IN; 1 = 




USE TL-507 A/D CONVERTERS. IT 




OUT). THE OUTPUT PIN GOES 




is; ASSUMED THAT EACH TL-507 IS 




TO LOGIC ONE NHEN SET FOR 




POWERING A POT AND READING THE 




INPUT (LOGIC ZERO FOR OUTPUT). 




PlIT NIPER. THE POT POSITION IS 
EliPRESSEO AS A NUMBER BETNEEN 




EQUATES 




100 AND I7F. PROVISION IS MADE 


DDOO 


APORT EQU *DDOO ; PORT LOCATIONS 




FOR CONTROLLING 8 TL-507 PARTS. 
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KITH THE RESULTIM6 CONVERSIOMS 


This sequence modifies only PA2 




DISPLAYED IN A LINE ACROSS THE 


leaving all other bits of Port A alone. To 




LQKER PART OF THE C-64 SCREEN. 


insure that PA2 is low use: 










LDA «FB jONLY BIT 2 IS L0« 




EQUATES 






AND tDDOO 


DDOO 


APORT 


EQU IDDOO 


PORT LOCATIONS 


STA tDDOO 


DDOl 
DD02 
DD03 


BPORT 

ADDR 

BODR 


E8U $DD01 
EQU I0D02 
EBU IDD03 




Study the sequence of operations in 
Listing 1. This program toggles PA2 
255 times with a delay between each 


DCOE 


SPISET 


EBU IDCOE 




operation. This allows you to monitor 


DDOE 


SP2SET 
rnucTAL 


EBU IDDOE 




the action with a logic probe to verify 
the activity. Note in the DELAY 




LUNalAnio 




subroutine that lines 26-30 save the A 


0002 
0040 


LIMIT 
SPINIT 


EBU 2 
EBU 140 


NUMBER OF A/DS TESTED 


Y and X registers during the delay 
countdown and lines 39-43 restore the 


0040 


SPTOG 

BUFFERS 
SAW 
HASK 
YINOEX 


EBU $40 




registers after the delay. This was not 
necessary for this pTOgram's operation 


007C 
007 & 
007E 


ESU I7C 
EQU I7D 
EQU I7E 




but is good programming practice if you 




develop any routine which can be used 




as a mini-utility in all your programs. 
Listing 2 is quite similar once you 


007F 


X INDEX 


EQU $7F 




understand how to manipulate the SP 


0080 


BUFFER 


EBU 180 


COUNT BUFFER AREA 


:ine. This line is used to input or 


0770 


HINDQki 


EBU 10770 


FIRST DISPLAY LOCATION 


iDutput 8 bits of synchronous serial data 


DB70 


HINCLR 


EQU IDB70 


COLOR RAM 


using the shift register internal to the 
(5526 CLA devices. If the Shift Register 


COOO 




ORE ICOOO 




is set for input (Bit 6 of the CIA Control 
11 Register A 0) the SP line goes high. 




INIT PORTS AND PROSRf 


\n 


Conversely programming the Shift 


COOO A? 00 


INIT 


LOA too 


BPORT = INPUT 


llegister for output (Bit 6 1) toggles SP 


C002 8D 03 DD 




STA BDDR 




low. Listing 2 toggles SP high then low 


COOS 8D 01 DD 




STA BPORT 




255 times with a delay between toggle 


COOS A9 40 




LDA ISPINIT 


; SET SP LINES LOH 


operations. Note that exactly the same 


COOA 00 0£ DC 




ORA SPISET 




programming techniques can be used 


COOD 8D OE DC 




STA SPISET 




for SPl (pin 5 of the User Port) by 


COlO A9 40 




LDA ISPINIT 




addressing $DCOE instead of $DDOE. 


C012 OD OE DD 




ORA SP2SET 




Both Listing 1 and Listing 2 were 


C015 8D OE DD 




STA SP2SET 




generated using the Commodore 
/assembler Development package (disk 




, CLEAR COUNT BUFFERS 




based) with intention of using 


C018 A9 00 




LDA 100 




HESMON 64 as a debugger. The BRK 


COIA A2 07 




LDX *$07 


INIT INDEX 


instruction (line 38) causes our 


COIC 95 80 


HIPEl 


STA BUFFER, X 




program to stop by returning to 


COIE CA 




DEX 




HESMON. These examples will get 


COIF 10 FB 




BPL HIPEl 




you started on I/O programming on the 
C:-64. We have not yet dealt with serial 




i RESET A/DS 




L'O using the Shift Register but we may 


C021 A9 40 


NEN 


LDA iSPTOG 


RESET LINE HIGH 


get to that next time. Note also that PC 


C023 4D OE DC 




EOR SPISET 




and FLAG are not programmable 


C026 8D OE DC 




STA SPISET 




directly. PC strobes low and back high 


C029 A9 40 




LDA ISPTOe 


THEN im AGAIN 


automatically whenever Port B is 


C028 4D OE DC 




EOR SPISET 




written to or read from, furnishing an 


C02E 8D OE DC 




STA SPISET 




automatic handshake signal. 


C031 AD 01 DD 




LDA BPORT • 


GET INITIAL MASK 




C034 85 7D 




STA HASK 




\\'heneveT FLAG is pulled low bit 4 of 


C036 AO 00 




LDY 100 


CLEAR COUNTER 


the Control Register ($DCOD on Ul 


C038 84 7C 




STY SAVY 




and $DDOD on U2) is set high. If the 
F].,AG interrupt has been enabled an 




CLOCK A/D 




interrupt will be enabled. Otherwise 


C03A A9 40 


CLOCK 


LDA tSPTOS ; 


CLOCK LINE HI 8H 


you can poll this bit using: 


C03C 4D OE DD 




EOR SP2SET 






C03F 8D OE DD 




STA SP2SET 




LDA IDDOD jGET INTERRUPT STATUS 


C042 A9 40 




LDA ISPTOG ; 


AND THEN LON 


P'ND 1*10 jTEST BIT 4 


C044 4D OE DD 




EOR SP2SET 




EEQ NOTHI ;BRANCH TAKEN IF NO BIT 
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Your own code to process the bit 


C047 8D OE PC 




S"A SP2SET 




received condition should follow 


C04A A5 7C 




Li)Y SAW 


GET COUNT 


directly. 


CD4C C8 




IflY 


COUNT CLOCK PULSES 


Last month's experiment was a 


C04D 84 7C 




S"Y SAW 


AND REMEMBER COUNT 


home-built single-slope A/D converter 


C04F .30 DO 




BHI NEW 


START OVER IF COUNT >127 


capable of operating from just two I/O 


C051 AD 01 DD 




LDA BPORT 


READ A/D OUTPUTS 


lines. The TL507CP is a very low cost 


C054 45 7D 




EOR HASK 


TEST FOR A/D DONE 


flexible A/D converter with 7 bits 


C056 FO E2 




BEQ CLOCK 


NONE? CLOCK AGAIN 


resolution (one part in 128) which is 


C058 AE 01 DD 




m BPORT 


READ PORT AGAIN 


excellent to read pot or joystick 


C05B 86 7B 




S'l MASK 


MAKE THIS NEW MASK 


position or two-wire sensors such as 


C05D A2 00 




LKK 100 


CLEAR INDEX 


thermistors. Figure 1 shows a test 


C05F 4A 


BITID 


LSiR A 


TEST WHICH BIT HIGH 


circuit with two TL507s driven from 


C060 90 08 




BCC NXTBIT 


IF TRUE, NOT THIS BIT 


the C-64 User Port, Up to eight TL507s 


C062 94 80 




STY BUFFER, K 


i IT HAS TRUE. SAVE COUNT 


can be controlled with this circuit and 


C064 20 71 CO 




JfiR SHOW 


DISPLAY COUNTS 


the results are displayed in a line across 


C067 4C 3A CO 




JNP CLOCK 


TEST OTHER A/DS 


the lower one-fourth of the CRT. If 


C06A E8 


NXTBIT 


I UK 


COUNT SHIFTS 


fewer than eight A/Ds are connected 


C06B EO 02 




Cf'K #LIMIT 


ALL BITS TESTED? 


all eight buffer locations will display 


C06D FO B2 




be:q new 


ALL DONE, START OVER 


but only those with data will change. 


C06F DO EE 




BNE BITID 


ELSE TEST NEXT BIT 


The TL507 is a single-slope A/D 




J 






converter which contains a resistive 


C071 86 7F 


SHOW 


SIX HNDEK 


SAVE VALUES 


ladder and a digital counter to generate 


C073 84 7E 




STY Y INDEX 




the ramp. The ramp begins (count 0| at 


C075 A2 00 




m #00 


CLEAR INDEX REGS 


,75 Vcc and mns to maximum (count 


C077 AO 00 




LllY #00 




$7f) which occurs at 1.25 Vcc. 


C079 B5 80 


READ 


LDA BUFFER. K 


1 GET COUNT VALUE 


Although this is inconvenient for 


C07B 20 88 CO 




JSR OUTPUT 


DISPLAY IT 


converting DC voltages, potentio- 


C07E E8 




INK 


POINT TO NEXT 


meters work very well. The TL507 


C07F EO 08 




CPK #08 


TEST FOR LAST 


works this way; the reset line (pin 8) is 


C081 90 F6 




BCC READ 




set high and then low. The output (pin 


C083 At 7F 




LItK K INDEX 


RETURN WITH DATA 


4| then switches high. Next the clock 


C085 A4 7E 




LLY YINDEX 




line (pin 2) is pulsed repeatedly until 


C087 60 




RTS 




the output switches low. Just as in the 










experiment last time, the number of 


C088 48 


OUTPUT 


PHA 


SAVE DATA 


clock pulses required to switch the 


C0a9 4A 




LSiR A 


GET HIGH NIBBLE 


output is kept in a CPU register. 


C08A 4A 




L£R A 




Listing 3 is the program which 


C086 4A 




LSR A 




exercises the circuit of Figure 1, SPl 


C08C 4A 




L£R A 




drives the Reset line, SP2 drives the 


C08D 20 9E CO 




JSiR CONVRT 


MAKE DISPLAYABLE CHAR 


Clock line, and the output lines of up 


C090 20 AB CO 




m DISPLY 


SHOW IT 


to eight TL507s are sensed by PBO- 


C093 48 




PLA 


SET DATA ASIAN 


PB7. It works this way: the TL507s are 


C094 29 OF 




m #*0F 


MASK TO LOW NIBBLE 


reset by lines 58-60 and the output 


C096 20 9E CO 




JJfl CONVRT 




lines all go high. This condition is 


C099 20 AB CO 




J£R DISPLY 




stored in MASK and a counter is 


C09C C8 




IhiY 


SPACE BETWEN BYTES 


initialized. The clock lines are pulsed 


C09D 60 




RTS 




(simultaneously) one time and the post 




} 






input pattern is compared to MASK 


C09E C9 OA 


CONVRT 


CI^P f*OA 


ALPHA OR DIBIT? 


(lines 67-76). If any TL507 output 


COAO 90 04 




BCC NUMBER 


- 9 


changes, lines 77-82 detect the change 


C0A2 38 




SEC 


A-F 


and save this new pattern in MASK. 


C0A3 E9 09 




SBC »*09 i 


MAKE IT C-64 SCREEN CODE 


Lines 83-91 identify the TL508 which 


C0A5 60 


EXIT 


RTS 




signalled Conversion Complete, save 




J 






the clock count and display the count. 


C0A6 18 


NUMBER 


CLC ; 


CONVERT TO ASCII 


This process is repeated until all input 


C0A7 69 30 




ADC «*30 




lines have been switched low, or until 


C0A9 DO FA 




BNE EXIT ; 


BRANCH ALWAYS 


127 clock pulses have been issued. 




! 






Lines 93-104 control the display 


COAB 99 70 07 


DISPLY 


STA WINDOW. Y 


; PUT IN SCREENBUFFER 


process. If fewer than 8 TL507s are 


COAE A9 00 




LDA #00 


; CHAR. COLOR = BLACK 


connected, data buffers associated with 


COBO 99 70 DB 




STA WINCLR.Y 


; UPDATE COLOR RAM 


the missing converters are reported as 


C0B3 C8 




I NY 


) BUMP INDEX 


' ' 00 ' ' 


C0B4 60 
COBS 




RTS 
END 
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Commodore Compass 



by Loren Wright 




New Commodore Computers? 

Commodore's CES announcement of two new computers 
was at least partially withdrawn. It appears now that the 
264, if it appears at all, will be introduced late in the year. 
The 364 has been indefinitely postponed. It's probably just 
as well. I, and a number of others, doubted the wisdom of 
bringing out a whole new line just when the Commodore 
64 had become established. The Commodore 64 finally 
has a respectable assortment of software available, and it is 
doing very well, I might add. The 1701 processor would 
have been the biggest hurdle. It would have taken a while 
to convert a significant amount of 6502/6510 software, 
and Commodore would have started again with the same 
problem it has always had with new computers - little, if 
any software! 



Side Scrolling Update 

Because of space limitations in last month's issue, you 
may have been left a little in the dark regarding how to use 
the side scrolling routine. What the routine does is move 
the screen contents, along with the corresponding color 
memory, to the right or left. If the move is to the left, then 
column 1 (actually the 2nd column) is copied into column 
0. Column 2 is copied into column I, and so on, until the 
move is complete. If the move is to the right, then column 
38 is copied into column 39, column 37 into 38, and so on, 
until the move is complete. The program allows you to 
specify a range of columns to be moved. The left column 
(LCOL) must be POKEd into 49152, and the right column 
(RCOL) must be POKEd into 49153. On a left move LCOL 
must not be less than one, and on a right move RCOL 
must not be greater than 38. If there is a in location 
49154, then the last column copied will remain 
unchanged-i.e., there will be two identical columns 



adjacent. Most of tt.e time, you will want that last column 
replaced with spaces, and any number besides POKEd 
into 49154 will accomplish that result. The left move is 
called with SYS 49155, and the right move is called with 
SYS 49182. 

It is a simple matter to add this feature to the screen editor 
(MICRO 66:28). In addition to the subroutine provided 
last month (70:59), only three lines are required: 

5 GOSUB 19000: LC49152: RCLCl: POKE LC2,1 

361 IF T$[ THEN GOSUB 1000: POKELC,!; POKE RC,H: 
SYS49155: GOTO200 

362 IF T$] THEN GOSUB 1000: POKELC,H: POKE 
RC,38: SYS49182: (;OTO200 

The horizontal cursor position (H) is used to determine the 
end of the screen move. This is the quick-and-dirty 
implementation. It removes the two square brackets 
characters from use in a graphic, though. To get them 
back, I would suggest using one of the unused function 
keys (f4 and f8) to enter a command mode, which expects 
another key to corc.plete the command. This allows for 
future expansion, sv.ch as up and down screen moves, fill 
routines, etc. To avoid errors, it would be a good idea to 
have some audible or visible (flashing border?) indication 
that another key is expected. 
Communications Update 

I was serious about including bulletin board listings and 
information in this column. So far I only have one such 
item (coming up next). I will also be checking my 
CompuServe EMAIL regularly, so for those who missed it, 
my CompuServe nu:3iber is 70626,636. I won't always be 
able to give direct responses to questions, but information 
and news that you ::hink would be of general interest is 
welcome. 
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TPUG BBS New Number and Policies 

The Toronto PET Users Group (TPUG) has a new number 
for its bulletin board service: (416)-429-6044, 24 his, 7 
days. The biggest change in policy is that users will no 
longer be able to download programs from the club library. 
To get library programs you must purchase the club's 
library disks or cassettes. However, the board may be used 
to upload programs, and this use is encouraged. The club 
librarians will go through programs so received regularly. 
Acceptable ones will be added to the library, and the 
contributor of an accepted program will get to choose a 
free library disk. 

TPUG Conference 

The Third Annual TPUG Conference will be held 
May 26 and 27, 1984, at the Constellation Hotel in 
Toronto. Features of the conference include two full 
days of lectures, workshops, and panel discussions 
conducted by local, as well as out-of-town, experts. 
The preliminary schedule shows at least five 
different speakers going at once all day Saturday and 
Sunday. Typical topics: Evaluating Commercial 
Software, Speech Synthesis, Hi-res Graphics on the 



C-64, Networking, How to Use Spreadsheets, and a 
Computer Music Overview. 

Some of ;he more popular sessions, such as Jim 
Butterfield's day-long machine-language workshop, 
may be filled, but there should still be a lot to 
choose from. I enjoyed participating last year, and 
look forward to it again this year. My topics will be 
Sprite Programming Techniques (intermediate 
level), and C-64 Graphics: A Little Machine 
Language Goes a Long Way 

(intermediate /advanced) . 

Other activities at the conference include easy 
availability cf copies of club library disks, an exhibit 
area for hardware and software vendors, an answer 
room, a trader's corner, and an optional banquet. 

If you've never been to Toronto, I should tell you 
that it is a beautiful city with a lot going on! 
Registration (required to participate in events) is 
$25. In addition, you must be a club member, which 
costs $30 (regular) and $20 (associate). Associate 
membership is intended for out-of-town members. 
You still receive the club's magazine TORPET and 
have access to the club library. The number to call 
for more information is (416)-782-9252 (business 
hours only). 



[DERRY 
lERlPHERALS 






Dealer 

Inquiries 

Invited 



COMPLETE PRODUCT LINES FOR 

D.C. Hayes • HDE • Microsoft • Nashua • Okidata 

APPLE • FRANKLIIN • IBM-PC/XT 

We carry many products at competitive prices to expand tliese fine computers. 
Request Catalog No. AFP* 

HDE • AIM • SYM • KIM 

HDE hardware and software for ASK, DLC, OMNi-65 systems 

KiM replacement modules (1K — 4K) and keyboards 

AIM-65 (1K — 4K) and accessories. Request Catalog No. TASK* 



Professional Workmansfiip 
Guaranteed Repairs 
Quick Turn-around 



COMPUTER REPAIR SERVICE 

Apple • 



AIM 



• Franklin • 

PET • HDE 

► SYM • 



Atari 
KIM 



Perry Peripherals 



"Catalogs 

AFP $2.00 TASK $1.50 
Catalog price refunded 
with first order 



Repair Center 

6 Brookhaven Drive 

Rocky Point, NY 11778 



Orders 
P.O. Box 924 (516) 744-6462 

Miller Place NY 11764 9AM— 5PM Weekdays 
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From Here to Atari 



by Paul S. Swanson 



I recently added an Atari 800x1 computer to my collection. 
The main differences between that system and the earlier 
Atari 400, 800 and 1200x1 computers is that no BASIC 
cartridge is required. BASIC is built in. I also noted some 
differences in the keyboard. The Atari 1200x1 keyboard is 
still the best of the series and I use that system for my 
word processing. However, the Atari 800x1 keyboard is 
close competition. The keys are non-glare type finish and 
have shorter strokes than the ones on the Atari 1200x1 
computer, which may be preferable to some touch typists. 
What really impressed me about the Atari 800x1 
computer was one of the details of the design. The 
cartridge slot has two metal strips forming a double door 
configuration, opening inward when a cartridge is 
inserted. When the cartridge is removed they spring closed 
again. The impressive detail is that there is no way to trap 
your finger in it. This seems like a minor point until you 
consider having a small child at the computer. The 
configuration of the cartridge door looks like an ideal setup 
for trapping small fingers, but after spending about 20 
minutes studying the door, I concluded that there was no 
way it could trap anything. 

MYDOS UPDATE 

Last month I reported a few bugs in MYDOS. Since then I 
have been in communication with SWP concerning that 
product. The updating of random access files has been 
corrected in versions 3.012 and 3.17. I noted that other 
minor bugs that I had uncovered have also been corrected. 
The new version should be available by the time you read 
this column. 

I also acquired an 80-track disk drive for my ATR8000. 
Using MYDOS to configure it, the 80-track double sided 
Qume disk holds about 734K of usable disk space. That is 
a little more than eight times the capacity of an Atari 810 
disk drive. 

TELECOM UPDATE 

Nite Lite, the computer bulletin board I'm running every 
night, has been a good source of information concerning 
how people are setting their Ataris up for 
telecommunication. If you have an Atari 850 interface or 



an ATR8000 you still have the widest selection. Any 
RS-232 compatible modem will connect to either of these 
devices directly. 

There are many callers who do not have Atari 850 
interfaces or ATRSOOC's connected to their systems. These 
Atari owners use either the Atari 835 modem or the 
MPP-IOOO. The Atari 835 is a little more expensive, but 
connects along the serial bus like other peripherals. The 
MPP-IOOO plugs into a joystick port. 

I have noted one piroblem with the MPP-IOOOC, which 
is that it doesn't respond as device R; so no custom 
software or any other software not specifically written for 
that modem will work. That eliminates what seems to be 
the most popular software on the Atari computer in this 
area, which is a public domain program called AMODEM. 
However, the MPP-IOOO comes with software that is at 
least comparable. The problem arises when you want to do 
other things with the modem. For example, there are 
several people who -svant to start their own computer 
bulletin boards, which requires different software. 

If you are looking for ways to get into 
telecommunication with your Atari computer, without an 
Atari 850 interface module or an ATR8000, the MPP-IOOO 
is the least expensive route. Other than that one problem, 
I have heard no complaints, so that modem seems to be 
worthy of consideration. I will be looking into the features 
of that modem and ways around the problem of interfacing 
it to other software. This will be reported in future 
columns. 

Information such as this can also be found on Nite Lite 
if you already have telecommunications capabilities at 
either 300 or 1200 baud. Nite Lite operates from 7:00 pm 
until 7.00 am, eastern time, at |617) 576-2426. If you call, 
leave me a message telling me that you got the number 
from this column. You are, of course, welcome to leave 
suggestions of issues for me to address in this column on 
Nite Lite. 

Telecommunications is a rapidly expanding area on 
personal computers. A.s the number of callers increases, 
the amount of information and entertainment available 
from these computer bulletin boards increases 
proportionally. There :ire also other new services opening 
up that are accessible using the same equipment and 
software required to access the free bulletin boards. 

AMOK) 
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Hardware Catalog 



A Perfect 2nd Computer for the 
Apple Owner 

HAVAC (Home/Academic Very 
Affordable Computer) is a transportable 
(14.2 lbs), 64K RAM, 40 column 
computer system compatible with the 
Apple II family. Its designed around the 
6502 chip and a new 5.25", 164K disk 
drive. A stand alone drive is also offered 
as an expansion product. 

Over 1000 of the most popular 
Apple programs have been successfully 
run on the system. Each HAVAC is 
shipped with an updated list of tested 
programs, and any special instructions 
needed to run them. These programs 
include games, education and business 
software. 

This computer is aimed at first time 
users, but its low price of $850 also 
makes it the perfect 2nd computer for 
the two-computer family. That price 
includes 64K RAM, 8K ROM; 164K 
floppy disk drive; 62 Key detached 
keyboard supporting upper and lower 
case and 4 cursor keys, HIRES color 
graphics; printer port, serial port, game 
port and video hookup. Free software 
includes HAVAC DOS, Typewriter, 
Card File, Calculator, Utilities, 
HAVAC BASIC and HAVACOM. 

MicroSci 

2158 S. Hathaway Street 

Santa Ana, CA 92705 

714/241-5600 



Three Useful Commodore Devices Inexpensive Atari Printer Interface 



The C-64 is missing an important 
feature... fl leset switch. The only way 
to regain control on a hung-up 
computer is to turn it off and lose the 
data entered already. A reset switch is 
available which attaches with tv/o 
simple solder connections, either 
externally in a separate box or through 
a hole drilled in the computer cove;r. 
With an enclosed software program, it 
allows recovery of entered data, and 
costs only $9.95. 

An Inteifeience Filter Kit solves the 
problem of RF emissions from the 
computer unit of older 64' s. It requires 
opening the computer and making 
three simple solder connections, but 
can be done in minutes. Price is 
$19.95. 

A MonitOT Cable with 5 -Pin Din Plug 
with attach Commodore, Atari and 
other computers to the new 1702 
Commodore Monitor. The cable 
packed with the monitor has an 8-p:in 
din plug that won't work with many 
machines. This retails for $24.95. 

Bytes &. Pieces 

550 N. 68th Street 

Wauwatosa, WI 5321 3 




APE-FACE allows Atari computer 
owners to choose from a variety of 
standard printers, including Epson, 
Okidata, Centronics and many other 
parallel style printers. There are 
currently two models: the 48P works 
with the Atari 400 and 800 computers; 
the XLP is for all Atari computers 
including the new XL line. There is no 
installation needed; simply plug in the 
cable to the printer and computer. The 
suggested price is $89.95. 

Digital Devices Corp. 

151 Sixth Street 

Suite 127, O'Keefe Bldg. 

Atlanta, GA 30313 

404/872-4430 




Modem Adapter for the Atari Serial 
Bus 

The R-Verter, Serial Bus Modem 
Adapter for Atari 400, 600XL, 800 and 
800XL home computer systems allows 
most modems and other RS-232C 
devices to be used directly without 
using the Atari 850 Interface Module or 
other interfaces. It comes with a 
software package which includes a 
smart terminal emulator and an RS- 
232C device handler, and will work 
with any RE-232C device which will 
accept TTL-level inputs (the majority 
will). The R-Verter requires no 
modifications of the computer or other 
peripherals and it does not use up a 
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joystick port. All circuitry is contained 
in an RS-232C type connector to 
minimize size. 

It comes with a built-in 3 foot cable 
and is available in either male or female 
connector configurations. When used 
with the A.I.D. Interfast-1 buffered 
printer interface (not included), it 
allows modem or RS-232C data to be 
echoed to a printer without first storing 
to a cassette or disk. Most common RS- 
232C handshaking configurations are 
available using internal jumpers. Price 
with terminal and print echo software 
is $49.95. 

Advanced Interface Devices, Inc. 

P.O. Box 2188 

Melbourne, FL 32902 

305/676-1275 



The drives are different in size and 
shape from typical OEM drives. This is 
largely due to the horizontal clutch 
carrier plate which is lowered via a 
nylon coated, miniature steel cable and 
activated by turning an ergonomically 
designed knob. The new drives are 
packaged in plastic housings and are 
slightly larger than standard OEM 
drives. According to the manufacturer, 
product maintenance and cost of 
maintenance is low due to fewer parts 
and simpler manufacturing process. 
End user pricing for the XL and XL80 
are: $199 and $299. 

MicroSci 

2158 S. Hathaway Street 

Santa Ana, CA 92705 

714/241-5600 




Apple Compatible Disk 
Designed for End User 

The XL and XL80 disk subsystems are 
Apple compatible floppy disk drives 
with capacities of 164K-bytes and 
328K-bytes respectively. With access 
times of 18msec, the 40 and 80 track 
drives are useful for applications 
ranging from software requiring 35 
track, 100% Apple compatibility on 
the small drive, to CP/M, PRODOS 
and volume sensitive software on the 
larger drive. 



Drives Parallel Interface Card for Apple 

The UniPrint card is an easy-to-use and 
inexpensive interface card for parallel 
printers. It is compatible with the 
Apple n + , Apple lie, and a wide variety 
of printers. The purchase price of 
$89.00 includes a Centronics 
compatible cable and graphic transfer 
capabilities. 

UniPrint provides transfers of 
HiRes graphics pages one and two, 
expands and shrinks the images, or 
rotates the images in any direction by 




9Ci degrees. Color transfers are also 
pcissible on the Dataproducts (IDS) 
Prism printer. 

The manual provides a step-by-step 
procedure for installation of the 
UniPrint and even includes pre-tested 
configurations for the most popular 
parallel printers avialable. Over 25 
printers are listed, including: Epson, 
C-ITOH, Apple DMP, Anadex. 

Videx, Inc. 

1105 N.E. Circle Blvd. 

Corvallis, OR 97330 

503/758-0521 



Data Line Surge Protection 

The SurgeSentry offers data line 
protection against power-induced 
problems such as static, electrical 
storms and other electrical interference 
pniblems. When a modem transmits its 
data signal via long distance phone 
lines, high voltage spikes and 
trsinsients caused by storms, power 
stations, etc. can't be avoided and are 
cairried along with the data being 
tr£.nsmitted. 

The data line protector constantly 
monitors the line as a passive device 
and, when a voltage spike is detected, 
chimps on the surge and absorbs the 
power from the line. This two-stage 
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suppression device was designed to 
provide the fastest reaction time and 
the highest absorption level, using 
silicon avalanch diodes and gas 
discharge tubes (spark gaps). 

The SurgeSentry plugs directly into 
a household phone jack, and the 
modem cable plugs into it, thus 



protecting the line to the modem and 
equipment connected to it. The 
SurgeSentry retails for $89.50. 

RKS Industries 

4865 Scotts Valley Drive 

Scotts Valley, CA S5066 

408/438-5760 



C64-FORTH/79 

New and Improved 
for the Commodore 64 

C64-Forth/79'" for the Commodore 64-$99.95 

• New and improved FORTH-79 implementation with 
extensions. 

• Extension package including lines, circles, scaling, 
windowing, mixed high res-character graphics and sprite 
graphics. 

• Fully compatible floating point package including 
arithmetic, relational, logical and transcendental functions. 

• String extensions including LEFTS, RIGHTS, and MID$. 

• Full feature screen editor and macro assembler. 

• Compatible with VIC peripherals including disks, data set, 
modem, printer and cartridge. 

• Expanded 167 page manual with examples and application 
screens. 

• "SAVE TURNKEY" normally allows application program 
distribution without licensing or royalties. 

(Commodore 64 is a trademark of Commodore) 

TO ORDER 

-Disk only. 

-Check, money order, bank card, COD's add $1.65 

-Add $4.00 postage and handling in USA and Canada 

-Mass. orders add 5% sales tax 

-Foreign orders add 20% shipping and handling 

-Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

770 Dedham Street ^^^ 

Canton, MA 02021 vtSA 

(617) 828-1209 ^^^ 



Surge Suppressor Outlet Strip 

The LG20 Surge Suppressor Multi- 
Outlet Strip offers small computer 
owners protection against voltage 
surges that can damage and even 
destroy electronic solid state 
components. Since this product can 
easily be installed by simply plugging 
into any 15A125V AC outlet, it is ideal 
for home, business or office use. 

This UL-listed 9 3/4" product 
features four "U ground" outlets, an 
on/off switch with pilot light, a six 
foot cord with three prong grounding 
plug, and a push-to-reset circuit 
breaker which protects against power 
overloads. The suppression circuit acts 
as a shock absorber by limiting surges 
or spikes without interfering with 
normal current flow. The LG20 will 
absorb surges up to 6000 volts or 6500 
Amps in less than 10 nanoseconds. The 
unit limits voltage to a safe 205 volts. 
The LG20 sells for $34.95 plus $2 
shipping and handling. 

Gadgeteer 

1524 Pine Street 

Philadelphia, PA 19102 

215/732-0965 




NOTE: When you contact the 
manufactuieis about these 
products, please he suie to tell 
them "I saw it in MICRO." We 
appieciate your support. 
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Index of Reviews 

June 1983 through May 1984 



Title 

Magic Memory 

Apple Record Manager 

Personal Finance Manager 

File-Fax 

TGS: The Graphic Solution 

Master Grades 

Form Letter Writer 

Mail List 

Data Manager 

Career Counselor 

Homebase 

C.C.Calc Disk Version 

Disk Data Handler 

Semi-Draw 

Mail controller 

Diary 64 

Passive Solar Design for Home 

64 Mail List 

Hello Central! 

Disk COLORCOM/E Smart Term. 

The Color Connection 

BugByter 

Ultra Disassembler 

BASIC Debugger 

Atari BASIC Compiler 

ABC 

DISKEDT 

STARDOS 64 

BASIC Aid 

CCREAD Editor/Assmb/Debugger 

Disassembler for 6809 

Platinum Worksaver 

Ultra 80CC 

Computer Mechanic 

SYS RES 

Delta Drawing 

Exper . in Human Physiology 

Flight Simulator II 

Word Attack 

Watchwords & Wordisk Maker 

Bumble Games 

General Chemistry 

Face Maker 

Multiploy 



Manufacturer 



Type Micro Issue 



ARTSCI 


A 


APPLE 


71 


CONN. INFO SYSTEMS 


A 


APPLE 


68 


APPLE COMPUTER INC 


A 


APPLE 


67 


TMQ SOFTWARE 


A 


APPLE 


64 


ACCENT SOFTWARE 


A 


APPLE 


63 


MIDWEST SOFTWARE 


A 


AP/PET 


64 


MMG MICRO SOFTWARE 


A 


ATARI 


70 


MMG MICRO SOFTWARE 


A 


ATARI 


68 


MMG MICRO SOFTWARE 


A 


ATARI 


67 


MMG MICRO SOFTWARE 


A 


ATARI 


66 


HOMEBASE COMP . SYS. 


A 


COCO 


70 


TRANSFORMATION TECH 


A 


COCO 


67 


CUSTOM SOFTWARE ENGIN. 


A 


COCO 


61 


COMPUTERWARE 


A 


COCO 


61 


ORBYTE 


A 


C64 


71 


COMPUTER MARKETING 


A 


C64 


68 


DON DANVLYK 


A 


C64 


67 


COMPUTER MARKETING 


A 


C64 


66 


HOWARD W. SAMS 


C 


APPLE 


63 


EIGEN SYSTEMS 


C 


COCO 


67 


COMPUTERWARE 


C 


COCO 


65 


COMPUTER-ADVENTURE 


D 


APPLE 


68 


ADVENTURE INTER. 


D 


ATARI 


66 


MMG MICRO SOFTWARE 


D 


ATARI 


66 


DATASOFT 


D 


ATARI 


65 


MONARCH DATA SYS 


D 


ATARI 


63 


SPECTRAL ASSOCIATES 


D 


COCO 


70 


STAR KITS 


D 


COCO 


70 


EIGEN SYSTEMS 


D 


COCO 


68 


EIGEN SYSTEMS 


D 


COCO 


68 


GRANITE COMPUTER SYS 


D 


COCO 


67 


PLATINUM SOFTWARE 


D 


COCO 


62 


SPECTRAL ASSOCIATES 


D 


COCO 


61 


SOFTSYNC 


D 


C64 


71 


SOLIDUS INTERNATIONAL 


D 


C64 


67 


SPINNAKER software; 


E 


APPLE 


71 


HRM SOFTWARE 


E 


APPLE 


71 


SUBLOGIC 


E 


APPLE 


71 


DAVIDSON & ASSOCIATES 


E 


APPLE 


65 


MICROMEDIA SOFTWARE 


E 


APPLE 


64 


THE LEARNING CO. 


E 


APPLE 


64 


COMPRESS 


E 


APPLE 


64 


SPINNAKER SOFTWARE 


E 


APPLE 


63 


RESTON PUBLISHING CO 


E 


APPLE 


62 



Type Key: Application, Communication, Development, Educational, 
Forth, Game, Hardware, Language, Software, Tutorial, 
Utility or Word processor. 
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Title 



Manufacturer 



Type Micro Issue 



Earl's Word Power: Homonyms 

Decimal Practice 

Preparing for the SAT 

Square Pairs 

Turtle Tracks 

Wordrace 

Mathmenu 1.0 

Fundamentals of Mathematics 

C64-F0RTH 

Mickey in the Great Outdoors 

Shrink 

Printmate 99 Printer 

Printmate 150G Printer 

RAM/EPROM Memory Board 

APPLE Pin Saver 

Ultra ROM Board/Editor 

KoalaPad Touch Tablet 

KoalaPad 

HJL-57 CoCo Replacement Kbrd. 

CCP-1 Serial/Parallel Int. 

Disk Interface/ROM Pack Ext. 

RS-232/C Expansion Cable 

Spectrum Stick 

TRS-80 Model 100 Port. Comp. 

Interpod 

Smart Ascii 

Robographics CAD-1 

VoiceBox II 

TYMAC Universal Tape Interface 

Vanilla PILOT 

DataFax 

Aztec C 

ANA-List 

Micro Illustrator 

Money Tool 

Modula-2 

The Stripper 

NEWTALK 

The World of Counting 

Cdex Training for VisiCalc 

The Visible Computer: 6502 

Discover BASIC 

CoCo 

Disk Library 

Insta-Load 

The Prime Plotter 

Apple Mechanic 

BASIC Commander 

Pro-Co lor- File 

64K Disk Utility Package 

Disk Utilities with Repair 

Bank Street Writer 

Super Text 

Casual Writer 



GEORGE EARL 
CONTROL DATA PUBL . 
PROGRAM DESIGN, INC 
SCHOLASTIC INC 
SCHOLASTIC INC 
DON'T ASK SOFTWARE 
INTER+ACTION 
STERLING SWIFT PUBL. 
COMPUTER MARKETING 
WALT DISNEY 
STAR KITS 
MICRO PERIPHALS 
MICRO PHERIPHALS 
JOHN BELL ENGINEERING 
KEN BRANSCOME ASSOC. 
HOLLYWOOD HARDWARE 
KOALA TECHNOLOGIES 
KOALA TECHNOLOGIES 
HJL PRODUCTS 
BOTEK INSTRUMENTS 
SPECTRUM PROJECTS 
SPECTRUM PROJECTS 
SPECTRUM PROJECTS 
TANDY CORPORATION 
OXFORD COMP. SYS. 
MIDWEST MICRO ASSOC 
ROBO GRAPHICS 
THE ALIEN GROUP 
MICRO-WARE DIST. 
COMPUTER MARKETING 
LINK SYSTEMS 
MANX SOFTWARE SYS. 
SYNOPTIC SOFTWARE 
KOALA TECHNOLOGIES 
HOWARD W. SAMS 
VOLITION SYSTEMS 
EIGEN SYSTEMS 
STAR KITS 

EDUCOMP ENTERPRISES 
CDEX CORPORATION 
SOFTWARE MASTERS 
STERLING SWIFT PUBL. 
ISA SOFTWARE 
MODULAR MEDIA 
EDEN II COMPUTING 
PRIMESOFT CORP 
BEAGLE BROTHERS 
MMG MICRO SOFTWARE 
DERRINGER 
SPECTRUM PROJECTS 
COMPUTERWARE 
BRODERBUND SOFTWARE 
MUSE 
E.N. PUBLICATIONS 



E 


APPLE 


61 


E 


ATARI 


70 


E 


ATARI 


67 


E 


ATARI 


67 


E 


ATARI 


67 


E 


ATARI 


67 


E 


COCO 


70 


E 


C64 


67 


F 


C64 


67 


G 


ATARI 


66 


G 


COCO 


68 


H 


ALL 


70 


H 


ALL 


68 


H 


ALL 


62 


H 


APPLE 


70 


H 


APPLE 


67 


H 


APPLE 


67 


H 


ATARI 


70 


H 


COCO 


71 


H 


COCO 


68 


H 


COCO 


68 


H 


COCO 


66 


H 


COCO 


63 


H 


OTHER 


67 


H 


64/20 


68 


h/c 


64/20 


67 


h/s 


APPLE 


67 


h/s 


ATARI 


68 


h/u 


64/20 


66 


L 


64/20 


65 


S 


APPLE 


70 


S 


APPLE 


70 


S 


APPLE 


70 


S 


APPLE 


68 


S 


APPLE 


68 


S 


APPLE 


66 


S 


COCO 


68 


S 


COCO 


66 


T 


APPLE 


71 


T 


APPLE 


67 


T 


APPLE 


66 


T 


APPLE 


64 


T 


C64 


65 


U 


APPLE 


64 


U 


APPLE 


64 


U 


APPLE 


63 


U 


APPLE 


61 


u 


ATARI 


63 


u 


COCO 


71 


u 


COCO 


67 


u 


COCO 


62 


w 


AP/AT 


65 


w 


C64 


71 


w 


VIC 


66 
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MICRO Program Listing Conventions 



Commodore 

LISTING 
Commands 

CCLEARJ 

(HOME} 

{INSERT} 

(DOWN) 

CUP} 

{RIGHT} 

CLEFT} 

Col ors 

CBLACK) 

CWHITE} 

CRED} 

CCYN} 

{PURPLE} 

C6REEN} 

{BLUE} 

{YELLOW} 

{RVS} 

CRVSOFF} 

CORANGE} 
CBROWN} 
{GREY 1} 
CGREY IJ 
{(jPEY 2} 
CLT GREEN} 
Cir BLUE} 



Fanct ions 

CFll 
{F2> 
{F3} 
(F4} 
CF5} 
CF6} 
{F7} 
CFG} 



C64 KEYBOARD 



n ' CLR 
;-i HOHE 
!i IN3I 
>;^ CR3R DOWN 
n - CR3R UP 
Ki CRSR RIGHT 
IH " CRSR LEFT 



I CTRL I BLK 
'J| CTRL 2 WHT 
r-Jl CTRL 3 RED 



ill 



CTRL 4 CYN 



CTRL 
ii CTRL 
3 CTRL 



'A 

m 

B 

li 

an 
■I 



PUR 
6RN 
BLU 



,T1 CTRL 8 YEL 
a CTRL 9 RVS ON 
■ CTRL RVS OFF 



M H 
M •■ *2 

II +5 

II f? 
B ■ f8 



Special Characters 

CPi;} IT " Pi Char 
{POUND} £ Pound Sign 
CUP ARROW} t Up Arrow 
CDACK ARROW}*- Back Arrow 



Atari 






Converitions U5 


ed in ATARI List 


inqs. 


Norsai fllphanuieric appear as 


UPPER CASE: 


SAMPLE 






Revsrsed Aiptianuaeric appear a 


5 lower case: 


yES iy 1 


s reversed) 




Special Control Characters in 


quotes appear as: 


icoaftand} 


as folloMs: 




Listing 


CoAftand 


ATARI Keys 


{IJP} 


Cursor Up 


♦ ESC/CTRL - 


{DOWN} 


Cursor Down 


♦ ESC/CTRL = 


{LEFT} 


Cursor Left 


*• ESC/CTRL + 


{RIGHT} 


Cursor Right 


* ESC/CTRL * 


{CLEAR} 


Clear Screen 


»« ESC/CLEAR 


{BACK} 


Back Space 


A ESC/BACK S 


{TAB} 


Cursor to Tab 


► ESC /TAB 


{DELETE LINE} 


Delete Line 


□ ESC/SHIFT DELETE 


{INSERT LINE} 


Iisert Line 


□ ESC/SHIFT INSERT 


{CLEAR TftB} 


Clear Tab Stop 


B ESC/CTRL TAB 


{SET TAB} 


Set Tab Stop 


fa ESC/SHIFT TAB 


{BEEP} 


Beep Speaker 


□ ESC/CTRL 2 


{DELETE} 


Delete Char. 


U ESC/CTRL BACK S 


{INSERT} 


Insert Char. 


U ESC/CTRL INSERT 


{CTRL A} 


Graphic Char. 


V CTRL A 




where A is any 


bfaphic Letter Key 



Non- Keyboard Commands 



CDIS=} 

ILOWER CASE} 
(UPPER CASE} 
( -RETURN} 
{DEL} 
{SPACE} 

Notesi 



CHR*(8.| 
CHR* ''7* 
CHR» U4> 
CHR*(142) 
CHRt ( 142) 
CHR* (20) 
CHRIdiOi 



1. •' represeits SHIFT KEv 

2. " represents Commodore Key in 
lower left corner of keyboard 

3. CTRL represents CTRL Kev 

4. Graphics :haracters represented 
in Listing by keystrokes required 
to gerierst e the character 

5. A number directly after a {SYMBOL J 
indicates multiples o + the sj v M B L ; 
CDDWN6> would mean DOWN 6 times 
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Advertiser's Index 



A B Computers 7 

Amplify 48 

Computer Mail Order 4,5 

F. Ashton 57 

Home Base Supply 34 

J &M Software 16 

J J Wild Inside Back Cover 

Lazerware 2 

MICRO Magazine 39,57 

Nibble 11,31 

Percom Back Cover 

Performance Micro Products 76 

Perry Peripherals 72 

Protecto 17,18,19 

Safeware 46 

Skyles Electric Works Ins. Front Cvr 

Specialty Electronics 48 

Winders & Geist 9 

Zanim Systems 1,36,80 



lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

Coming in June 



■III 



As a special bonus to Micro readers, we are 
including the complete all-new Apple lie 
Supplement to What's Where in th Apple. 

We will also share with you the fruits of 
someone's seven years of labor ... a Random 
Number Genorator that has endless possibilities. 
For those unfamiliar with IVIacro's, we have an 
informative article explaining what Macro's are 
and how to incorporate them in your 
programming. The musical minded will enjoy our 
Musical Not€)S article putting a 5-octive range at 
your fingertips. 
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 



WHERE'S THE 
MicroCalc ! 



Those of you who took advantage of 
our recent subscription promotion 
which featured a free copy of our new 
MicroCalc Screen-Oriented 

Calculation Program - please be 
patient a little while longer. Our 
original plan was to make a few 
'minor' improvements to the 
MicroCalc that was published in 
MICRO 68 (December 1983) and 
release it on disk. Well, once we got 
into making changes, we sort of got 
'carried away'. This has been the 
primary cause of the delay. 

The version of MicroCalc to be 
released shortly has many major 
improvements and completely new 
functions. These include: 

D the ability to handle strings and 
string functions as well as numbers, 

D program control functions for 
looping and testing limits, 

D Informative help screens, 

D disk I/O routines that allow for 
automatic calling of subsidary 
screens from disk, 

D printer routines for dumping the 
display screen, 
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n printer routines for generating 
formatted output, 

D plus an extensive manual, 
complete listings, and demonstration 
screens. 

Due to these additional features, and 
the extra effort that has gone into 
development of the MicroCalc 
package, the price has been 
increased from $14.95 to $29.95. 
Those of you who have already 
ordered MicroCalc, or who are owed it 
as part of your subscription, will not 
be charged anything extra. 

We are sorry it has taken the extra 
time, but you will find that the time 
was well spent. The Commodore 64 
version will be completed by the t me 
you read this. The Apple version will 
be available in May and the Atari and 
CoCo versions in May or June. 



Disk Service 
Now Available. 



In response to your requests, we 
are now offering selected 
programs from recent issues on 
diskette. We will expand this 
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service, if there is adequate 

demand. Each diskette will include 

all of the programs in BASIC 

and/or Assembly Source, plus 

binary 'load-and-go' files. The price 

includes shipping and handling. 

Master Disk Directory 

Charles Hill 

Apple II with disk 

MD-1 MICRO 67/69 

Does-it Monitor 

Michael Keryan 

Commodore 64 

MD-2 MICRO 68/69/70/71 

Accurate Printer 

Richard Marmon 

Atari with Epson Printer 

MD-3 MICRO 71 

Send us your requests. If there is 

enough interest for any particular 

program, we will Issue a diskette. 

Please order each diskette by 

Name and Number 

Send $15.00 for each diskette to: 

MICRO Diskettes 
P.O. Box 6502 
Chelmsford, MA 01824 
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Computer's 
Choice. 




Primage I 

The revolutionary office duty, letter quality 
daisy printer system from Primages. 



In word processing and data 
communications applications, 
where high quality printing at high 
speed means higher computer 
productivity— The Primage I daisy 
printer by Primages is the 
computer's first choice. 

That's because Primage I, with 
its PAGEMATE I* sheet feeder, 
costs much less than any other 
office-quality, high-speed daisy 
printer And because it's easy 
to interface with any micro- 
computer system. 



Primage I features: 

■ 45 cps speed in heavy 
duty applications 

■ Word processing 
features 

■ Consistent letter 
quality production 

■ Wide choice of fonts 

■ Easy connection to 
your computer 



Easy to install sheet 
feeder that handles 
up to 11" X 14" sheets, 
either landscape or 
portrait 

Full 131/2" writing line 
Switch selectable 
multiple languages 

Patented technology 
for greater reliability 



■PAGEMATE is a trademark 
of Primages, Inc. 



Main Office: 
Branch Offices: 



163 Reservoir Street, Needham, MA 02194, (617) 449-5600 

P.O. Box 214, Rock Hill, CT 06067, (203) 529-9123 
70 Oriole Drive, Bedford, NH 03102, (603) 472-2123 



ATARI COMPUTER OWNERS: 



Pick the positively 

perfect, practical, 

printer-port peripheral 

package, from 

PERCOM DATA! 




That's right 



. the positively perfect PERCOM DATA 5Vi'. floppy diik drive with a BUILT-IN 

PRINTER-PORI for your Alari^ 400/800 is now available! 

Until now, Alan computerownerswho wanted to hook a printer to their computer had only one 

choice. .. spend al30Ut $220 for an interface device THOSE DAYS ARE OVER. PERCOI^ DATA has 

buill a parallel printer-port right into its new AT88 PD model Now you can add a quality disk drive 

system AND have a place (o plug in a printer ..WITHOUT BUYING an interface 

The AT8S SI PD™ disk drive operates in laoth single density (88K bytes formatted) and double 

density (176K bytes formatted), 
What more could you want? NO INTERFACE a high quality PERCOM DATA disk drive . AND a 
built-in PRINTER-PORT ..all with a price ol $599. 
Pick up a positively perfect PERCOM DATA disk drive, with Pgffectly PfiCed 

printer-port... pronto! 
For the name of an authorized PERCOM DATA Dealer near you, 
call our TOLL-FREE HOTLINE 1-800-527-1222 NOW, or write 
(or more information. 
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CORPORATIOM 



Expanding Your Peripheral Vision 

DRIVES * NETWORKS * SOFTWARE 

11220 Pagemill Road. Dallas Texas 75243 (214| 340-5800 

1222 ^^ 

ruo,tter«f ir.vi«ni,iri< n( Alan \nc. • ATSfi SI PD IS a trsden ,m Data Cofporation, • COPYRIGHT PERCOM DATA CORPORATION 1963 

Prtcss subject to changa wtthoul notice. 



